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Venti fantastiche lezioni settimanali su cassetta, 
per apprendere in modo facile, interattivo e 
divertente, il BASIC, i principi di funzionamento 
dell’hardware e le tecniche di programmazione 
degli home computer più diffusi. 

Ogni lezione contiene esercizi di familiarizzazione 
con la macchina e con il suo linguaggio, in più 
alcuni giochi di crescente difficoltà, analizzati nella 
loro struttura. I 
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E cco finalmente un 
fantastico arcade 
tutto da giocare sul vo¬ 
stro PCI28, azione, ve¬ 
locità effetti sonori vi ac¬ 
compagneranno nella 
più travolgente ed ap¬ 
passionante avventura 
che vi sia mai capitata. 

ANTEFATTO 

Capita a volte di fare so¬ 
gni strani o incredibili, il 
nostro eroe, un tranquillo impie¬ 
gato di banca, appassionato (nel 
tempo libero) al gioco degli scac¬ 
chi, ha un po' alzato il gomito, la 
sera con gli amici, ed ora riposa 
nel suo comodo letto. La fantasia, 
nell'abbandono del sonno, non 
più frenata dallo stato cosciente si 
è scatenata, fondendo la realtà 
del lavoro quotidiano con il gio¬ 
co, nel più assurdo degli incubi 
che abbia mai avuto. I colleghi, i 
superiori, hanno assunto un 
aspetto caricaturale e aggressivo 
nei riguardi del nostro eroe, ten¬ 
tando in tutti i modi di ostacolarlo 
nell'unico vero scopo: riassem¬ 
blare un preezioso set di scacchi, i 
cui pezzi giacciono sparpagliati 
nelle stanze della banca. Come 
sempre, il sogno rivela per simboli 
i conflitti della realtà, in questo ca¬ 
so, il contrasto tra l'impegno del 
lavoro e la passione per il gioco. 

LO SCENARIO 

L'azione si svolge nell'immenso 
stabile della banca, ricco di osta¬ 
coli pericolosi e di esseri buffi ma 
ugualmente aggressivi: l'occhio 
del 'capo' attento e pronto a ful¬ 
minare chi si trova a tiro, il perfido 
granchio che implacabile insegue 


il nostro eroe, e tante differenti in¬ 
sidie. Per passare di stanza in 
stanza esistono quattro porte al 
centro dei quattro lati principali, 
un ascensore situato in una parti¬ 
colare stanza, permette agevol¬ 
mente di passare da un piano al¬ 
l'altro. Al centro, potrete trovare 
sia i pezzi mancanti, da collezio¬ 
nare, sia le preziose pillole di 
energia. Alla sinistra dello scher¬ 
mo è riportata l'intera scacchiera, 
con evidenziati i pezzi ritrovati, 
mentre alla destra, sotto le dicitu¬ 
re N,0,E,S, rappresentanti i punti 
cardinali, i pezzi eventualmente 
presenti nelle stanze attigue. 

IL GIOCO 

Scopo del game è raccogliere i 
pezzi della scacchiera, sparsi un 
po' dovunque nell'ambiente di 
gioco, prima di esaurire l'energia 
disponibile, evitando nel contem¬ 
po il contatto con gli esseri ostili. 
All'inizio del gioco, disponete di 
4000 unità di energia in rapido 
continuo calo. Il contatto con un 
essere ostile costa ben 1000 unità 
di energia, il cambio di piano con 
l'ascensore 100 unità. L'unico 
mezzo per recuperare l'energia 
perduta, consiste nel raccogliere 


le pillole o i pezzi della 
scacchiera evitando co¬ 
munque di indugiare 
troppo nelle situazioni 
pericolose. Per difender¬ 
vi, avete a disposizione 
un'arma segreta a colpi 
paralizzanti, capaci di 
fermare per un istante 
l'attacco di un qualsiasi 
attaccante; unico difetto, 
l'esiguo numero di car¬ 
tucce a disposizione, 
nonché la singolare proprietà del 
colpo sparato, di rimbalzare sugli 
oggetti presenti tornando talvolta 
al mittente. 

I LIVELLI DI GIOCO 

II programma permette la defini¬ 
zione dei principali parametri di 
gioco nei termini di difficoltà, ve¬ 
locità e vastità del campo. Questi 
parametri sono settabili all'inizio 
di ogni partita, e continuamente 
visualizzati sulla sinistra dello 
schermo sotto le diciture DI (diffi¬ 
coltà), TE (tempo/velocità). CH 
(dimensioni). Il parametro Di, de¬ 
termina, assieme alla vellocità di 
gioco, l'effettivo livello dii difficol¬ 
tà, variando, il numero degli esse¬ 
ri osttili presenti in ogni stanza, 
nonché la disponibilittà delle pil¬ 
lole di energia ecc. Tale parame¬ 
tro è regolabile tra 1 (minima diffi¬ 
coltà) e 29 (difficoltà massima). Il 
secondo parametro di gioco, (TE) 
determina la velocità di funziona¬ 
mento del game selezionabile tra 
1 (gioco veloce) e 20 (gioco len¬ 
to). L'ultimo numero infine, deter¬ 
mina le dimensioni del campo di 
gioco nell'intervallo 2-5. 

I CONTROLLI 

Per pilotare il nostro eroe nell'av- 










ventura, è possibile utilizzare sia il 
joystick che i tasti cursore della ta¬ 
stiera grazie alla selezione auto¬ 
matica effettuata dal programma. 
Una volta caricato il gioco, occor¬ 
re premere il tasto cursore sinistro 
oppure l'analoga direzione del 
joystick per iniziare. A questo 
punto, occorre selezionare i para¬ 
metri di gioco (DI/TE/CH) usando 
i tasti cursore o le direzioni su/giu 
del joy; utilizzare la barra-spazio 
per confermare. Qualora non si 
desiderasse variare i parametri 
esistenti, premere per tre volte 
consecutive la barra spazio, per 
accedere immediatamente al gio¬ 
co. In fase di gioco la barra-spa¬ 
zio è ancora utilizzata per passare 
da un piano all'altro negli "a- 
scensori"; i tasti o le direzioni 
su/giu selezionano il piano da 
raggiungere. 

CARICAMENTO 

Per caricare e lanciare il program¬ 
ma, riavvolgere completamente il 
nastro, premere il tasto RESET del 
computer (per tornare al menu 
iniziale) e premere il tsto "2" sulla 
tastiera. A questo punto battere: 
RUN"CASS:'' 

premere il tasto <ENT>, premere 
il tasto PLAY del registratore, ed 
attendere il caricamento del 
gioco. 

Qualora il gioco non dovesse 
funzionare, riprovare le operazio¬ 
ni descritte anche sul lato "B" del¬ 
la cassetta, fino a risultato rag¬ 
giunto. 












Editoriale Jackson, 
dei diritti per 

l'Italia di questo gioco, invita i lettori 
che ne fossero a conoscenza, a 
segnalare l'esistenza di eventuali altre 
pubblicazioni contenenti questo stesso 
gioco, alla redazione della nostra 
rivista. 

Le prime tre segnalazioni saranno 
convenientemente compensate. 
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ADVENTUREMASTER 


Un programma che vi permetterà di creare facilmente giochi Adventur& sul vostro pc 128. 


L adventure è gestita tramite una serie di ma¬ 
trici con le quali è possibile trattare tutte le 
"stanze" con una stessa routine malgrado possa¬ 
no contenere oggetti diversi, in numero diverso, e 
con più frasi chiave. 

L'uso di una medesima routine permette di econo¬ 
mizzare notevolmente la memoria e di rendere più 
trasparente la gestione. Nel nostro caso gli ele¬ 
menti delle matrici vengono caricati tramite delle 
DATA in un ciclo posto all'inizio del programma. 
Diamo ora uno sguardo al listato: 
da 10 a 500 viene inizializzato e dimensionato il 
programma. 

Le righe 210 e 220 stabiliscono il numero di stanze 
e di oggetti, e deve essere modificato a seconda 
dell'adventure realizzata. Alle righe 240 e 250 ven¬ 
gono dimensionate 3 importanti matrici (sovradi¬ 
mensionate vorrei dire in quanto sono da 20 ele¬ 
menti contro i 9 usati). Vediamo il significato delle 
matrici: 

t() : collega la stanza attuale con le altre. È la 

matrice detta di connessione. 

c$(): associa ad ogni stanza una (o più) parole 

chiave da confrontare con l'input. 

b$(): Memorizza quali oggetti sono contenuti in 

ogni stanza. 

La routine da 300 a 320 (routine di HELP) carica la 
frase "NESSUN MESSAGGIO" nella matrice h$() 
che contiene le frasi di aiuto. Nelle adventure reali 
(non in questa che è solo dimostrativa) saranno 
caricate le frasi di sostegno al giocatore da una 
linea DATA. 

N.B. ricordatevi di dimensionare h$() qualora il nu¬ 
mero di "aiuti" fosse superiore a 10. 

Le righe 340-470 presentano il programma e pro¬ 
pongono un menù con 2 opzioni: 

1. Nuovo gioco 
2. Caricamento da cassetta 

La prima opzione permette di giocare partendo 
dall'inizio, la seconda caricando una certa situa¬ 
zione da cassetta. Vedi comando SALVA più 
avanti. 

L'istruzione 500 attiva il CAPS e la luce relativa. 
Dalla linea 510 alla linea 1010 è contenuta la rou¬ 
tine che provvede al riempimento delle matrici di¬ 
mensionate in precedenza. Non vengono caricate’ 
le ultime due stanze in quanto sono terminali e 
subiscono un diverso processo. Per vedere come 


funzionano i cicli basterà vedere una delle linee di 
DATA: 

STANZA N. 1 

Data 4, Candelabro, vaso terracotta, sacco di pie¬ 
tre, 3,0,E,S,5,2,4, 

Il "4" è il numero di oggetti della stanza elencati in 
successione. 

Il "3" è il numero delle possibili frasi chiave con 
elencate di seguito le direzioni e le stanze a cui 
sono collegate. Questo modo di memorizzare i 
dati facilita le operazioni di messa a punto delle 
adventure e la loro espansione in tempi successivi. 
La gestione delle matrici avviene inoltre in maniera 
trasparente. 0,E,S, sono naturalmente le iniziali di 
altrettanti segni cardinali. 

La riga 1010 verifica se è la prima volta che si 
gioca o se l'adventure è stata caricata da nastro. 

IL PROGRAMMA PRINCIPALE 

Vi si possono notare 9 righe (una per ogni stanza) 
tutte caratterizzate da RESTORE che contengono la 
descrizione della stanza relativa. 

Le due stanze terminali passano direttamente alla 
routine "FINE PROGRAMMA" dove sono utilizza¬ 
bili i sequenti comandi: 

LIST 

RUN 

Supponendo di essere partiti con NS=1 la linea 
1090 descrivere sullo schermo la stanza, dopodi¬ 
ché la ROUTINE PRINCIPALE attende dal giocato¬ 
re una frase memorizzata poi in RS. 

Nelle linee da 1670 a 1710 si controlla se R$ corri¬ 
sponde a uno dei comandi speciali per i quali esi¬ 
stono delle routine a cui il programma salta au- 
tomticamente. 

Stesso discorso vale per le linee da 1760 a 1790, 
dove però viene analizzata solo le parte iniziale di 
R$ contenente il comando e, di seguito l'oggetto 
su cui esso deve agire. 

Le linee tra 1720 e 1760 trasformano frasi del tipo 
"VAI NORD" nella sillaba "N" (ciò per tutte le 4 
direzioni) ciò rende più facile la gestione. 

Le righe da 1800 a 1820 confrontano R$ con i C$() 
proprio della stanza in cui ci si trova. 

Se RS corrisponde ad uno di essi il programma 
salta alla stanza prevista da T() ovvero ad una 
delle linee comprese tra 1090 e 1180 cosicché vie- 
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ne caricata una nuova descrizione e così via. Va 
notato che al crescere del numero delle stanze cre¬ 
sce il numero di istruzioni della Routine principale 
inoltre all'istruzione 1180 si aggiungono altri salti 
condizionati che possono essere anche particolari: 
ad esempio il penultimo che va alla linea 1160 
dove viene controllato il contenuto della matrice 
OS(ì degli "NO" oggetti in possesso del giocato¬ 
re. Se tra essi è presente la "chiave", il program¬ 
ma consente il passaggio alla stanza successiva. 
Questo tipo di situazione di salto condizonato, 
possibile solo se in possesso si un determinato og¬ 
getto, può essere molto frequente per cui o si co¬ 
struiscono più righe simile alla 1160 oppure si crea 
una routine generale per gestire in un'unica manie¬ 
ra tutte le stanze tramite una matrice. 

Dalla 1880 in poi, inizia una serie di brevi ma fon¬ 
damentali routines quasi tutte relative ai comandi 
speciali: 

1880 - 1990 Letture di Data d$() 

2000 - 2110 Routine di Aiuto. La routine visualizza 
la stringa di aiuto relativa alla stanza attuale 
h$(ns). 

2120 - 2260 Routine Guarda descrive gli oggetti, 
se ce ne sono, della stanza attuale ovvero i b$(ns). 
2270 - 2420 Routine di fine progamma consente di 
uscire in ogni momento dal gioco dopo ulteriore 
conferma mediante un salto alla routine della riqa 
1270. 

2430 - 2580 La routine di PRENDI attivata anche 
digitando "PRENDI oggetto" es. 

PRENDI CANDELABRO 
RACCOGLI CHIAVE 

La routine controlla che il giocatore non possieda 
già il massimo di oggetti consentiti, nel qual caso 
passa alla routine "TROPPI OGGETTI" che annul¬ 
la il comando. Se è tutto in ordine, tramite l'istru¬ 
zione INSTR, cerca se all'interno di R$ è presente 
uno degli oggetti contenuti nella stanza, in tal caso 
passa alla routine PRESO OGGETTO (2590/2740) 
o altrimenti annulla l'ordine comunicando che non 
esiste l'oggetto nella stanza. La routine PRESO 
OGGETTO agisce aggiornando il contatore NO e 
la matrice o$() acquista un'elemento viceversa 
b$() perde un oggetto ovvero l'ultimo oggetto di 
b$() sostituisce quello prelevato dal giocatore. Infi¬ 
ne n(ns) = n(ns-l) cosicché tutti i cicli riguardanti bS 
trascureranno elementi superiori a tale valore. 

La routine LASCIA (1870/2960) attivata da MOLLA 
LASCIA OGGETTO, assieme alle routines OG¬ 
GETTO NON ESISTENTE e a LASCIATO OGGET¬ 
TO compie l'operazione inversa a quella descritta 
in precedenza. 

3250/3540 Routine di CARICAMENTO attivata dal 
menù iniziale è valida per l'uso della cassetta 
3350/3990 Routine SALVA attivata anche da E7 
consente il salvataggio su cassetta tramite menù 
ed è analoga anche per l'indirizzamento alla routi¬ 
ne di caricamento. 

4000/4140 Routine ELENCO elenca tuti gli oggetti 
in possesso al giocatore (se ne ha) ovvero gli ele¬ 
menti di 0S{). 

4150/4310 Routine di ERRORE v iene usata nel caso 


la periferica entri in una situazione di ERRORE ed 
impedisce la perdita dei dati. 



PRENDI 

LASCIA 

GUARDA 

ELENCO 

AIUTO 

FINE 

SALVA 


ELENCO VARIABILI 


A$ : LETTURA DATA 

B$() : MATRICE OGGETTI NELLA STANZA 

C$() : MATRICE COMANDI POSSIBILI 

CP() : MATRICE NUMERO COMANDI POSSIBILI 

D$ : LETTURA DATA 

E : CICLO 

H${) : MATRICE DI AIUTO 

I : CICLO 

J : CICLO 

K • CICLO 

KK$ : LETTURA TASTIERA 
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N() : MATRICE NUMERO OGGETTI STANZA 
NG : NUMERO OGGETTI ESPLORATORE 
NG : NUMERO MASSIMO OGGETTI OMINO 
NO : NUMERO OGGETTI ESPLORATORE 
NS : NUMERO STANZA ATTUALE 
NT : NUMERO TOTALE STANZE 
NX : = NS 
R$ : INPUT 
RR ■ CICLO 

SV : NUMERO DELLA SCELTA 

T() : MATRICE RISPOSTA AL COMANDO 

T : CICLO 

VV$ : SCELTA 


GUIDA AL 
CARICAMENTO 
DEI PROGRAMMI 

I programmi presentati sono caricabili sia 
battendoli direttamente da tastiera, che 
utilizzando la cassetta allegata. 

Per il caricamento del nastro, battere il 
comando "LOAD" ed attendere il messaggio 
OK. 

Battere il comando RUN per lanciare il 
programma. Salvo diversa indicazione, i 
programmi girano indifferentemente nei due 
linguaggi Basic disponibili (opzioni 1/2 del 
menu iniziale). 

Per evitare eccessiva usura del nastro premere 
il tasto stop del registratore al termine di ogni 
caricamento. 


10 REM * 

* * ** * * * * * * * * * * * ******** 

20 REM * 

*: 

3@ REM * 

APVENTURE MASTER * 

48 REM * 

* 

50 REM * 

FC128 * 

90 REM * 

k 

10 0 REM :t 

* * * * * * * * * * :t: * * * * * * * * i * * * 

130 CLEAR 

20 0 0 

150 RESTORE 200 

16 0 F 0R I 

=1 TO IO 

i 7 0 ,R E 0 X' 

A $ 

18 @ S 


199 NEXT 


2 0 0 PATA 

PRENDI ,LASCIA .GUARDA,ELENCO.A 

I UT 0,FINE 

, S A L V h ,, , 

210 N G = 5 : 

NUMER0 06©ETTI ESPL0RA T 0PE 

220 N T = 9 

- NUMERO TOTALE STANZE 

230 NS=1. 

- NUMERO STANZA ATTUALE 

2 4 9 D I M T 

2 (j , 2 0 '' 

250 PIM C 

* < 2 0,2 0 } 

268 DIM I 

*<20, ’2 0 ) 

2 7 0 C L S 


2 8 0 


290 SC REE N 7,4,4 

30 0 FOR I 

=1 TO 18 


310 H * a > = “ NE S SU N M ES S fi 6 6IO" 

320 NEXT 

3 30 0 N E R R 0 R GOTO 4 J. 5 0 
340 CLS 

350 LOCATE 11,3 

360 F'RINT " AVVENTURE MASTER-" 

370 LOCATE 11,6 
3 80 P R I N T " 1. NIJ 0 V 0 G 10 C 0 " 

390- LOCATE 11,7 

400 PRINT "2. CARICA DA CASSETTA" 

410 ' 

420 ■ ' 

430.LOCATE 11,12 

44@- INPUT "Scegli <l/2> " , S V 

450 IF SV=1 THEN 480 

460 IF SU=2 THEN GOTO 3320 

470 GOTO 340 

480 CLS 

490 ' 

500 ' 

528 REM' ************************* 

530 REM.* * 

540 REM * PESCRIZI ONE STANZA * 

550 REM .* * 

560 REM ************************* 

580 RESTORE 750 
590 FOR 1 = 1 TO NT -2 
600 REAP N C I > 

610 FOR J=1 TO N(I) 

620 REAP 

630 NEXT 

640 REAP CPU) 

650 FOR J = 1 TO CPU) 

660 REAP C*<I,J) 

670 NEXT 

680 FOR J»1 TO CPU) 

690 REAP T (I , .J ) 

700 NEXT 
710 NEXT 
720 REM 

730 REM STANZA N.l 
740 REM 

750 PATA 4,CANDELABRO,VASO TERRACOTTA,SA 
CCO PI PIETRE,PEROAMENA.3,0.E.S.5,2.4 • 
760 REM 

770 REM STANZA N.2 
780 REM 

790 PATA 4,CORDA,LIBRO INPOLVERATO,ANELL 
0 PI ORO,SPADA MAGICA,2,0,S.1,3 
800 REM 

810 REM STANZA N.-3 
820 REM 

830 PATA 2,CHI AVE,TORCIA,2,N,0,2,4 
840 REM 

850 REM STANZA N.4 
860 REM 

870 DATA 1, TAVOLO' LEGNO,3,N,E,0,1,3,7 
880 REM 

890 REM STANZA N.5 
900 REM 

910 PATA 3,FORZIERE CHI USO,CRI STALLO.PAN 
CA,2,E,S,1,6 
920 REM 

930 REM STANZA N.6 
940 REM 

950 PATA 1,MONETA SPEZZATA.4,APR I PORTA, 
N,E,S,9,5,1,7 
960 REM 

970 REM STANZA N.7 
980 REM 

990 PATA 2,BICCHIERE VUOTO,SEP I A,3.N,E>U 
SA CHIAVE,6,4,8 
1000 REM 

1010 CLS:ON NS GOTO 1090,1108,1110,1120, 
1130,1140,1150,1160,1180 


IO 























PROGRAMMA 


3 0 0 0 0 



1040 REM * 


* 


tasto perfinire. 

1050 REM * PROGRAMMA PRINCIPALE * 


1520 

REM ************************ 

1060 REM * 


* 


1530 

REM * * 

1070 REM ************************* 


1540 

REM * ROUTINE PRINCIPALE * 

1090 RESTORE 1420 

GOSUB 1880 

GOTO 1510 


1550 

REll * * 

1100 RESTORE 1430 

60SUB 1880 

GOTO 1510 


1568 

REM ************************ 

1110 RESTORE 1440 

GOSUB 1880' 

GOTO 1510 


1580 

BEEP 

1120 RESTORE 1450 

GOSUB 1880 

GOTO 1510 


15 90 

LOCATE 3,10 

1130 RESTORE 1460 

GOSUB 1880 

GOTO 1510 


16 00 

PRINT 3PC < 75 > 

1140 RESTORE 1470 

GOSUB 18*0 

GOTO 1510 


1618 

LOCATE 0.10 

1150 RESTORE 1480 

GOSUB 1880 

GOTO 1510 


1620 

PRINT " >> 

1160 FOR T = 1 TO NO' IF 0*(T^ = 

CHIAVE" THE 


1630 

LINE INPUT R$ 

N 1170 ELSE NEXTGOTO 1330 



1640 

IF Rt- " 11 THEN 1510 

1170 RESTORE 1490 

■GOSUB 1880 

GOTO 1260 


16 5 0 

LOCATE 8,14 

1180 RESTORE 1500 

GOSUB 1880 



16 68 

PRINT S P C (200 •' 

1200 REM ************************* 


1670 

IF R * = "A IUT 0" THEN GOTO 2080 

1210 REM * 


t 


16 80 

IF R t =“S A LV A * THEN GOTO 3558 

1220 REM * FINE DEL PROGRAMMA * 


1690 

,ÌF R*="FINE " THEN 2270 

1230 REM * 


* 


1700 

IF- R$ = "ELENCO" THEN 4000 

1240 REM ****************,********* 


1710 • 

IF R J = " GUARD A“ THEN 2180 

1260 IF I N K E V * *" " 

THEN 1260 



17 20 

ìF R * = " V A I NORD" THEN R*="N" 

1270 CLS 




1730 

IF R S = " V A I SUD" THEN Rt = "S" 

1280 FOR 1=1 TO 10 



1740 

IF R $ = "V A I EST" THEN R*="E" 

1290 BEEP 




175 0 

IF R t-"V A I OVEST" THEN Rt="0" 

1300 NEXT 




17 60 

IF LEFTt<R*,6 > = " PREND I " THEN 2430 

1310 ' 




1770 

IF LEFT*<R*,8>*"RACCOGLI" THEN 2430 

1320 ' 




1780 

IF LEFTf(R*,6)*." LASCIA" THEN 287,0 

1330 ' 




1 790 

IF LEFTf(RI,5)-"MOLLA" THEN 2870 

■ 1340 END 




1800 

FOR E = 1 TO CP(NS > 

1360 REM ************************* 


1810 

NX = N S i IF C*(NX,E>=R* THEN NS = T(NX, 

1370 REM * 


* 


E > ' O N T r N X . E :> GOTO 1090,1100.. 1110,1120,1 

1380 REM'* DESCRIZIONE AMBIENTI * 


130,1140 . 1150,1160,1180 

1390 REM * 


t 


1820 

NEXT 

1400 REM ************************* 


1830 

LOCATE 8,14 

14 2 0 DATA Ti tro 

•' i nell''ingresso se n 


18 4 0 

PRINT SPCC200) 

i o s c u r a t o . V e d i u. n 

o a n d e 1 a b r o 

,u .r vaso di 


18 50 

LOCATE 8,14 

’t e r r a c o 1t a u n s a o c 

:■ d i pie t r e 

_ u h a p e r oi a m e 


1860 

PRINT "NON PUOI !'" 

ri a . T r e p o r 

t e a S u d.. E s 

! .. Ovest. Cos 


1870 

GOTO 1510 

a f a i ? 




1890 

REM ************************ 

1430 DATA La star. 

? a h a d u e a *> e r t u r e a 0 , ‘ l 


19 00 

REM * * 

»st f S u d. U n a 1 e g a e r a 1 a c e Filtra d a u r, a 


1910 

REM * LETTURA DATA * 

■fi west r a in al t o 




1920 

REM * * 

I 1 p a ' i rfi a n t <: o ri s •=■ 

■ " a le i fa f> r o 


1930 

REM ************************ 

n t e r e o e n -1 i d i ij 

n r a 3 s a g « i 

. . . 


1950 

CLS 

14 4 0 DATA A f •* f> e ri a 

e r» t r a t e e r» 

> una -:ers 


I960 

LOCATE 0,0 

azioni? d i f r a d d o . 

La pareti 

J i c 0 1 r r o s 


1970 

READ D $ 

so rdattorteti i»e11 

on o triste- 

za- S p r- a 


1980 

PRINT D* 

u n t a o 1 o *,-• e d i u. n 

a 1arterna 

3 Vvcita in 


1990 

RETURN 

u ri (c« a n n o e y ri a c 

■i i a y e 1 u c i d 

ata di recen 


2010 

F; E M * * * * * * * * * * ************** 

te. Portea Ovest 

e Nòrd. 



2020 

REM * * 

14 5 0 D A T A L. a s t a n 

za ha gli s 

P i g o I i. a r r o t 


2030 

REM * AIUTO * 

ondati. Il sottitt o botte. 

C i *s o n o p r. r 


2040 

REM * * 

tea 0 e s t N o r d e 

Est. 



2050 

REM * * * * * *. * * * ***** * * * * * * * * * * 

1460 DATA Nella s 

tanza ■"edi 

.i n f o r z i e r *? 


2078 

LOCATE 0,2.4 

chi u. s o o o ri s b a r r e 

:J i ferro e 

j n 1 ij. c c h e 11 o 


2 0 8 0 

PRINT SPCC200) 

e o.ri cri-stallo. 

a z z u r r o a p r 

:• gg i a t o sopr 


2 09 0 

LOCATE 0,14 

a «na pan-cs. Ponte a Est e 

8 u d. 


2100 

PRINT HtCNS? 

1470 DATA AI cent 

■ o- de 11 a *t 

3 r* z a u n f' o 7 


2110 

GOTO 1518 

zo oon. unpesante 

c o P e r c h i o 

1 i f e r r o . F 


213-0 

REM ************************ 

ra I a poi-yere del payi»ento ?corgi u 


2140 

REM * * 

na monetaspe>zzat 

a . $ i serio 

P o r t »? a ^ o r *:i 


2150 

REM * GUARDA * 

.Est e Sud 




2160 

REM .* * 

14 8 0 I 1 A T A L a p r f ni 

a c o s a c h e 

noti e ' " n 


2170 

REM ************************ 

-bicchiere y u o t o 

s o P r a u. ri a 

sedia. Ci 


2190 

LOCATE 0,14 

sono-porteapen t e 

? Nord e Es 

t„ IJ n p o r t 


2200 

PRINT S PC(2 00 X 

■ a chiusa aSud. Cosa devo tare ? 


*210 

LOCATE 0,14 

1490 DATA . 

- BRAVO ! ! 1 


2228 

IF N(NS)*0 THEN PRINT "NESSUN 0G6ET 

---- 




70 I 

I*iGOTO 1510 

Sei entrato nella stanza d 


2230 

FOR RR-1 TO N<N8> 

ei tesoro, ri tuo 

o o m p 1 1 o e 

guesta mini 


2240 

IF »»(N8, RRX»»." THEN- PRINT »:»«' 

adoenturesono -finiti. Prerr 

i u n t a s t o p 


SU»,*»> 

e r finire. 




2250 

N E T 2 2 6 0 GOTO 1510 

1500 DATA . 

- PECCATO ! ! ! 


2 2 8 0 

REM ************** * :* * * * **** * 


al pozzo e 


2 2 9 0 

REM t * 

per telaadverture e ' tjrit 

a. Premi un 


2 3 0 0 

REM * FINE PROGRAMMA * 
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231-0 REM * * 


3180 0*<K)=0*<N0) 

2320 REM ************************ 


3190 NQ=N0-1 

2340 LOCATE 0,14 


3200 LOCATE 0,14 

2 3 5 0 PRINT SPCC200) 


3210 PRINT SPC <200 ) 

2360 LOCATE 0.14 


3220 LOCATE 0,14 

2370 PRINT "Vuoi proprio -finire ? < S / N ) 


3230 PRINT "LASCIATO ! ! " 

3240 GOTO 1510 

■2380 UU*= INPUT*<1> 


3260 REM ************************ 

2390 IF IJIJ * = " S * THEN 1270 


32*70 REM * * 

2400 LOCATE 0,14 


3280 REM * CARICAMENTO * 

2410 PRINT SPCC200) 


3290 REM * * 

2420 GOTO 1510 


3300 REM ************************ 

2440 REM ************************ 


3320 TT*«“CAS$.ADVX" 

2450 REM* * 


3330 ' 

2460 REM * PRENDI * 


3340 OPEN ”1" ,#1,TJ* 

2470 REM * * 


3350 INPUT #1,NS 

2480 REM ************************ 


3360 INPUT #1,NO 

2500 IF N0>=N6 THEN 2820 


3370 FOR 1=1 'TO NT-2 

2510 FOR K = 1 TO N < NS > 


3380 INPUT #1,NU) 

2520 IF INSTR <R* , B*(NS, IO >08, THEN 2660 


3390 FOR J=1 TO NU> 

2530 NEXT 


3400 INPUT #1,B*( I ,J > 

2540 LOCATE 0,14 


3410 NEXT 

2550 PRINT SPC < 200 ) 


3420 INPUT #1,CPU) 

2560 LOCATE 0,14 


3438 POR - J = 1 TO CPU > 

2570 PRINT “L'OGGETTO NON ESISTE M” 


34 413 INPUT 4 1,C * (I , J> 

2580 GOTTO 1510 


3450 NEXT 

2600 REM ************************* 


3460 FOR J = 1 TO CPU) 

2610 REM* * 


3470 INPUT # 1 ,T < I ,J > 

2620 REM * PRESO OGGETTO, * 


3480 NEXT 

2630 REM * * 


3490 NEXT 

2640 REM ************************* 


3580 FOR 1=1 TO HO 

2660 N0=N0+1 


3510 .. INPUT #1,0*<I> 

2670 0*<N0)=B*<NS, IO 


3520 NEXT 

2680 B*<NS,K)=B*<NS,N(NS>> 


3530 CL08-E 

2690 N<NS) = N(NS)-1 


3540 80T0 1010 

2700 LOCATE 0,14 


9596 REM ************************ 

2710 PRINT SPC ( 200 ) 


3570 REM* * 

2720 LOCATE 0,14 


3580 REM * SALVA * 

2730 PRINT "PRESO !!“ 


359* REM * * 

2740 GOTO 1510 


3*8* REM ************************ 

2760 REM ************************* 


4988 CLS 

2770 REM * * 


*830 RRINT : PRINT : PRINT : PRINT 

2780 REM * TROPPI OGGETTI * 

2790 REM * * 


3840 'PRINT “ SALVATAGGIO SITUAZI 

OHE" 

2800 REM ************************* 


3650 PRINT : PRINT : PRINT 

2820 LOCATE 0,14, 


3660 PRINT " 1. SALVA SU CASSETT 

2830 PRINT SPC ( 200 ) 


A" 

2840 LOCATE 0,12 

2850 PRINT "TÌROPPI O0GETTI !!" 


3670 PRINT 


3680 PR.INT " 2. RITORNA" 

2860 GOTO 1510 


3690 PRINT 

2880 REM ************************ 


3700 PRINT 

2890 REM * * 


3710 PRINT:PRINT:PRINT 

2900 REM * LASCIA * 

2910 REM * * 


3720 PRINT ” PREMI UN TASTO <1/2 

>” 

2920 REM ****t*t***y***-*t*****M.9 


3730 BEEP 

2940 FOR K=1 TO NO 


3740 KK**INKEV* 

2950 IF INSTRTR*,0*00)00 THEN 3160 


3750 IF K K * < " 1 " OR KK*>"2" THEN 3740 

2960 NEXT 


3760 IF KK*’="2" THEN 1010 

2980 REM ************************* 


3770 IF KK*="l-“ THEN TT* = »C ASS : AD VX " 

2990 REM * * 


3780 ' 

3000 REM * OGGETTO NON ESISTENTE * 


3790 OPEN " 0 " , # 1,TT * 

3010 REM * * 


3800 PRINT # 1,NS 

3020 REM ************************* 


3810 PRINT, #1, NO' 

3040 LOCATE 0,14 


3820 FOR S=1 TO NT-2 

3050 PRINT SPCC200) 


3830 PRINT # 1,N ( I ) 

3060 LOCATE 0,14 


3840 FOR J=1 TO N(I) 

3070 PRINT "OGGETTO NON ESISTENTE !!" 


3850 PRINT # 1, B * U , J ) 

3080 6(JiT0 1510 


3860 NEXT 

3100 REM ************************* 


3870 PRINT #1,CPU> 

3110 REM * * 


3880 FOR ,1 = 1 TO CP(I) 

3120'REM * LASCIATO OGGETTO * 


3890 PRINT #1, C*<I,J 

3130 REM * * 


3900 NEXT 

3140 REM ************************* 


3910 FOR J = 1 TO CPU) 

3160 N<NS)=N<NS>+1 


3920 PRINT # 1,T < I , J ) 

3170 B*<NS,N<NS))=0*<K) 


3930 NEXT 
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3940 NEXT 

3950 FQR 1=1 TO HO 

3960 PRINT #1,0*( I) : PRINTOfC I ) 

3970 NEXT 
3980 CLOSE 
3990 GOTO 1010 

4010 REM ********************** * * 

4020 REM * * 

4030 REM * ELENCO *. 

4040 REM * * 

4050 REM ************************ 

4070 LOCATE 0,14 
4080 PRINT SPC < 200 > 

4090 LOCATE 0,14 

4100 IF NO=0 TH£N PRINT "NESSUN OGGETTO 

! !" : GOTO 1510 

4110 FOR RR=1 TO NO 

4120 IF 0*<RR)O’* THEH PRINT " - ";0*(RR 
> 4130 NEXT 4140 £OTO 1510. 


4160 REM ************************* 

4170 REM * *' 

4180 REM * ROUTINE I'I ERRORE * 

4190 REM * * 

4200 REM ************************* 

4230 PLAV "DORÈ" 

4240 CLOSE:CLS LOCATE 0,10 PRINT " SI 
E' VERIFICATO UN ERRORE" : P R I N T - ’ " 

PREMI <RETURN> .. 

4250 ' 

4260 ' 

4270 ' 

4280 ' 

4290 INPUT KK* 

4300 IF ERL=»3790 THEN RÉSUMÉ 3620: GOTO 3 
620 ' 

4310 IF ERL = 3340 THEN RÉSUMÉ 340 : GOTO 34 

0 

4320 RÉSUMÉ:GOTO 1010 
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GIOCO DEL SASSO 


U n avvincente gioco per due persone, in cui 
riflessione e tattica sono indispensabili per 
poter vincere. 

Il gioco del sasso, è una implementazione partico¬ 
lare di un conosciuto gioco da tavolo in cui lo scopo 
principale è riuscire a disporre consencutivamente 
quattro pedine del proprio colore su di una scac¬ 
chiera. 

Alternativamente, i due giocatori dispongono una 
pedina in una colonna premendo il tasto corrispon¬ 
dente (numero 1 h- 7) cercando di raggiungere in 
orizzontale, verticale e diagonale una fila di quattro 
pedine. Il programma effettua, ad ogni mossa, il 
controllo delle pedine rivelando sia la vincinta di un 
giocatore che la situazione di parità, nel caso piut¬ 
tosto remoto di riempimento totale delle caselle. 


10 

REM 

********************** 

20 

REM 

* t 

30 

rem 

* GIOCO DEL SASSO * 

40 

REM 

* * 

50 

REM 

******************** ** 

1 60 

REM 


70 

SCREEN 1,7,7 

80 

CLS 

Y=0:X=0:Q=0:M=0 


90 LOCATE 10 ,2 PRINT "G.IOCO !EL SASSO" 
100 LOCATE 0,5 : PR INT" IL GIOCATORE K6IAL 
LO) E IL GIOCATORE 2(ROSSO) MUOVONO A 
TURNO" PRINT : PRINT" IL DISCO CAFRA NELL 
ULTIMA CELLA" : PRINT"LIBERA DELLA RIGA SE 
LEZIONATA" 

110 LOCATE0.il :PRINT"IL PRIMO GIOCATORE 
CHE RIUSCIRÀ' A" PRINT "DI 8 PO R R E QUATTRO 
DISCHI IN FILA":PRINT"IN SENSO VERTICALE 
, " :PRINT "ORIZZONTALE, 0 IN DIAGONALE SAP 
A /n :PRINT:PRINT" Il VINCITORE 1 

i « 

120 LOCATE 2,21 :PRINT"PREMI UN TASTO PER 
CONTINUARE" 

130 A*=INKEVi IF A * = " " THEN GOTO 130 
140 CLS:SCREEN2 
150 DIM V(6,5 > 

160 GOSUB 1220 REM DISEGNA LO SFONDO 
170 S-1 : 0 = 1 

180 CIRCLEC16, 16) , 8,3 PAINT C 16,16) , 3 
190 LOCATE0,3 PRINT"NR 1":.CIRCLE (16,60 
>,8.1:PAINT (16,60) ,i?L0CATE8 ,9 PRINT"N 
R 2" 

200 S=1:Q=1 

210 LOCATE 1,21 :PRINT"GIOCATORE 1“:K* = IN 
KEV* : L0CATE11,21-: PRINTK* : K = VAL(K* } : IFK>7 
ORKCITHENGOTO 210 

220 COLOR 4 :*LOCATE0,21 : PR I NT " *********** 
*" : C0L0R15 
230.GOSUB 390 
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240 CIRCLE(<X*24>+56.<M*24>+24>,8 , 3 : P A I N 


40 RETURN 

T <<X*24)456,<N*24>+24>,3:V<X.N>*S 


830 GOSUB 1060:GOSUB 1040 RETURN 

250 GOSUB 350 


840 GOSUB 1060: GOSUB 1080 :GOSUB 1020 :GOS 

260 BOTO 540 


UB 1040 RETURN 

270 S = 2 : Q = 2 


350 GOSUB 1080 : GOSUB 1020 RETURN 

280 L 0 C A T E121 : PRINT" GIOCATORE 2 ” :K*=IN 


860 GOSUB 104 0 :GOSUB 1020 RETURN 

KEV* : L0CATE11, 21 : PR I NTIC* : K=VAL<K$> : IFK>7 


870 GOSUB 980 " G0SJJB 3820 GOSUB 3980:GOSU 

0RK<1 THEN GOTO 280 


B 4000 GOSUB 3940 :GOSUB 3960 : RETURN 

290 COLOR 4 : LOCATE0,21■PRI NT"*********** 


888 IF V<X + 1,M:) = Q AND Y(X+2,M)=0 AND V<X 

C0L0R15 


+ 3 M > = 0 THEN GOTO 1150 

300 GOTO 390 


890 RETURN 

310 CJRCLE <<X*24)+56,<M*24> + 24>,8,1 : PAI 


900 IF V<X-1,M)=Q AND Y(X-2,M)»Q AND Y<X 

NT<<X*24> + 56,<.M*24)+24),1:V(X,M) = S 


-3,M ) =Q THEN GOTO 1150 

320 GOSUB 350 


910 RETURN 

330 GOTO 540 


928 IF V < X , M +1 > = Q AND Y<X,M+2>=Q AND V<X 

340 GOTO 210 


,M+3)=Q THEN GOTO 1150 

350 B=0:FORA=0TO6:IFY<A,0)*1ORV<A,0>=2TH ‘ 


930 RETURN 

ENB=B+1 


940 IF VCX+l,M-1)=Q AND V X + 2 , M - 2 > = 0 AND 

360 NEXT A 


V(X+3,M-3)*Q THEN GOTO 1150 

370 IFB=7THENGOTO1140 


950 RETURN 

' 380 RETURN 


960 IF YCX-l . M~1)=Q AND V(X - 2,M - 2)■0 AND 

390 X = K -1 


VCX-3 . M-3>=G THEN GOTO 1150 

400 IF-V<Xs-0)*1OR'V<X, 0)*2THEN ON S GOTO 


97@ RETURN ' > 

210,280 


980 IF V(X + 1-, mi> = 0 AND Y(X+2,M+2)=Q AND 

410 IF V<X,1>*1 OR Y < X , 1 > * 2 THEN GOTO 40 


YCX+3.M+3)=Q THEN GOTO 1150 

0 


990 RETURN 

420 IF V«X,2)=1 OR V (X,2 > = 2 THEN GOTO 49 


1000 IF V ( X -1, M +1 > = 0 AND V<X-2,M+2)»Q AN 

0 


D V(X-3,M + 3 > =0 THEN GOTO 1150 

430 IF V < X , 3 > * 1 OR V < X-, 3 ) *2 THEN GOTO 58 


1010 RETURN 

0 


1020 IF V < X +1.M -1 > = Q AND V < X -1,M +1 > ■ Q AN 

440 IF V < X,4 > *1 OR V(X , 4)* 2 THEN GOTO 51 


D V<X-2,M+2)*Q THEN GOTO 1150 

0 


1030 RETURN 

450 IF V(X,5) = 1 OR V < X , 5 > = 2 tHEN GOTO 52 


1040 IF V(X-1,M-1>»Q AND V<X+1,M+1>«Q AN 

0 


D V <X +2.M+2>*0 THEN GOTO 1150 

460 IF V < X , 5 ) < > 1 OR V(X,5)02 THEN-GOTO 


1050 RETURN 

530 


106.0 IF Y(X-1, M+1)=Q AND V<X + 1,M-1)»Q AN 

470 ON 3 GOTO 240,310 


D VXX + 2 , M-2)=Q THEN GOTO 1150 

430 M*0: GOTO 470 


1070 RETURN 

4 9 0 M* 1 : 6 0 T 0 4 7 0 


1080 IF VCX + l.M+1)=Q AND Y<X-1,M-1)«Q AN 

, 500 M = 2: GOTO 470 


D YCX-2,M-2)=Q THEN GOTO 1150 

5,10 M = 3 : GOTO 470 


1090 RETURN 

520 M = 4:GOTO 470 


1100 IF V C X -1 , M ) = Q AND Y(X+1,M>=Q AND Y< 

530 M = 5 : GOTO 430 


X+2,M)=QTH€N GOTO 1150 

546 IF X+l>3 THEN GOSUB 900 


1110 RETURN 

5-50 IF X +1 < 5 THEN GOSUB 880 


1120 IF V ( X - 2 ,M > = Q AND Y<X*1,M>»Q, AND Y< 

560 IF X + 1>1 AND X +1<6 THEN 60SUB 1100 


X+i.M>=0 THEN GOTO 1150 

570 IF X +1>2 AND X + 2<7 THEN GOSUB 1120 


1130 RETURN 

580 IF M<3 THEN GOSUB 920 


1140 IOCATE0.21 :PRINT" PARTITA PAR 

590 IF M>2 AND X+l<5 THEN GOSUB 940 


I”: GOTO 1160 

600 IF M > 2 AND X + l>3 THEN GOSUB 960 


1150 LOCATE 0,21 : P R I N T 11 IL GIOCATO* 

610 IF M = 5 THEN GOTO 760 


E";S;"HA V I NTO":PLAY“DOREM I DORÈ" 

620 IF. ti<3 AND X +1 <5 THEN GOSUB 980 


1160 COLOR 4 :LOCATE0,21 : PRINT" ": COLOR 15 

630 IF M<3 AND X+1>3.THEN GOSUB 1000 


1170.Locate 5 , 23 :print"vuoi giocare anco 

640 FOR C=i TO 6 


R A < S / N > " 

650 IF H = 4 ANI) X + 1 = C THEN ON C GOSUB 780 


1180 A*=INKEYt 

,790,800,800,800,810 


1190 I-F A*="S" OR Af = "s" THEN CLEflR : CLS : 8 

660 NEXT C> 


OTO 150 

670 IF M = 4 THEN GOTO 760 


1200 IF A $ = "N" OR A * = “ n " THEN END 

680 FOR D=1 TO 6 


1210 GOTO 1180 

690 IF M = 3 AND X + 1 = D OR M = 2 AND X + 1 = D TH 


1220 REM SFONDO 

EN ON I) GOSUB 780,8 30,840,84 0,840,850 


1230 FOR G=5 TO 26 

700 NEXT D 


1240 FOR H = 1 TO 19 STEP 3. 

3 710 IF H=3 OR M = 2 THEN GOTO 760 


1250 LOCATEG ,H:PRINT"*" 

k 720 FOR E = 1 TO 6 


1260 NEXT H : NEXT G 

730 IF M = 1 AND X +1 = E THEN ON E*GOSUB 700 


1270 FOR 6=5 TO 26 STEP 3 

,1040,880,860,860,1020 


1280 FOR H = 2 TO 17 .STEP 3' 

740 NEXT E 


1290 LOCATE 6,H:PRINT"*" 

750 IF M = 1 OR M = 0 THEN GOTO 760 


1300 NEXT H : NEXT G 

760 IF 3 = 1 THEN GOTO 270 


1310 FOR 6=5 TO 26 STEP 3 

770 IF S=2 THEN GOTO 200 


1320 FOR H=3 TO 18 STEP 3 

780 RETURN 


1330 LOCATE G,H:PRINT"*" 

790 GOSUB 1060: RETURN 


1340 NEXT H : NEXT 6 

800 GOSUB 1060.GOSUB 1030:RETURN 


1350 M=>1 : FOR R = 6 TO 24 STEP 3 

810 GOSUB 1080: RETURN 


1360 LOCATER , 0 : PRINTW:W = W + 5 :NEXT R 

1 820 GOSUB 98G : GOSUB540 ■■ GOSUB1020 : GOSUB10 


1370 RETURN 





























































LA “MENTE” 

DEL COMPUTER 


di G. Ferri 


I ntelligenza Artificiale: che co¬ 
sto? 

Nel 1956, a Dartmouth, Marvin 
Minsky del Massachussets Institu- 
te of Tecnology, John McCarthy 
della Stanford University, Claude 
Shannon dei Bell Telephone La¬ 
boratories, fondandola ufficial¬ 
mente, l'hanno definita come il 
tentativo di riprodurre attività con¬ 
siderate intelligenti per mezzo di 
processi automatici. 

All'inizio si è fatta soprattutto ri¬ 
cerca pura senza fini applicativi 
immediati. Ad esempio ci si è de¬ 
dicati al gioco degli scacchi e al 
cosiddetto "GPS", (generai pro- 
blems solver). 

In un secondo tempo si è pensato 
alle applicazioni pratiche per veri¬ 
ficare la validità delle ipotesi di 
partenza. 

E di quel periodo, per esempio, la 
creazione del sistema esperto 
"Mycin", in grado di eseguire at¬ 
tività di consulenza nella diagno¬ 
stica medica. 

Al momento attuale ci si dedica 
soprattutto a delimitare problemi 
precisi da affrontare, volta per 
volta, per raggiungere un obietti¬ 
vo ben preciso e limitato. 

In breve, l'intelligenza artificiale, 
all'inizio, si è occupata di capire 
come gli uomini imparano e come 
una macchina potrebbe acquisire 
nuove conoscenze in particolari 
settori. 

Ci si è accorti, però, che, per otte¬ 
nere risultati veramente soddisfa¬ 
centi, c'era un enorme dispendio 
di tempo e di energia. 

Forse non sembra, ma il cervello 
umano adopera meccanismi non 
così banali per codificare e deco¬ 
dificare un messaggio, ovvero ciò 
che proviene dal mondo esterno. 
L'esempio classico è quello del 
leggere o scrivere un testo. 

Va soprattutto chiarito il ruolo fon¬ 
damentale che ha la nostra me¬ 
moria nel processo di compren¬ 



sione: infatti, la mente umana, im¬ 
magazzina determinate cono¬ 
scenze che vengono in seguito 
riutilizzate in situazioni simili a 
quelle originarie, in cui è avvenuto 
un processo di conoscenza. 
Quindi l'intelligenza artificiale di 
costruire dei sistemi "intelligenti", 
così detti in quanto emulano le 
doti intellettuali dell'uomo; si cer¬ 
ca di insegnare alla macchina a 
comportarsi come gli uomini sce¬ 
gliendo le soluzioni più soddisfa¬ 
centi. 

Per fare un esempio chiaro a tutti 
parliamo del gioco degli scacchi: 
è questo un ottimo test per valuta¬ 
re le capacità "intellettuali" della 
macchina. 

Per prima cosa va detto che non è 
possibile riuscire a immagazzina¬ 
re tutte le mosse possibili consen¬ 
tite ai 32 pezzi degli scacchi sui 64 
quadratini della scacchiera. 

Si procede allora come si fa con 
gli uomini: gli si insegna a gio¬ 
care! 

Cioè si scrive un programma che, 
per prima cosa, conosca le regole 
del gioco; ma poiché gli scacchi 
sono un gioco di strategia è ne¬ 
cessario che anche il programma 
sia in grado, come l'uomo, di 
analizzare le mosse migliori, di 
prevedere o prevenire quelle del¬ 
l'avversario. 

Perciò il programma in questione 
dovrà essere in grado di fare il 
maggior numero di analisi possi¬ 
bili (detto in BASIChese, ci saran¬ 
no molti IF-THEN). 

Già da questo potete intuire co¬ 
me sia più difficile battere a scac¬ 


chi un programma scritto su 64K 
piuttosto che uno scritto su 16K, 
dato che nel primo computer c'è 
più memoria si potranno analiz¬ 
zare più mosse di quanto si possa 
fare sul secondo. 

Sempre rimanendo nell'ambito di 
questo gioco è chiaro che più il 
computer ha memoria più gioche¬ 
rà bene; a tutt'oggi si tengono 
campionati di scacchi uomo con¬ 
tro computer e spesso la macchi¬ 
na riesce a battere i maestri del 
gioco. 

Un primo risultato che si è già ot¬ 
tenuto è rappresentato dal fatto 
che il computer esegue le opera¬ 
zioni di analisi e calcolo molto più 
velocemente di quanto faccia 
l'uomo; pertanto in tutte le appli¬ 
cazioni di intelligenza artificiale ci 
si può avvalere di questa impor¬ 
tante capacità. 

È sciocco tuttavia pensare che 
con queste macchine si possano 
risolvere problemi che nessun uo¬ 
mo può risolvere: a tutti i traguar¬ 
di a cui arrivano le macchine do¬ 
tate di "intelligenza artificiale" 
può arrivare anche l'uomo, te¬ 
nendo conto però che questi ne¬ 
cessiterebbe di molto più tempo. 
Si può quindi dire che si cerca di 
far "ragionare" la macchina. 
Possiamo individuare alcune ca¬ 
tegorie di applicazioni per l'intelli¬ 
genza artificiale: 

- la robotica, dove i compiti che 
di solito sono eseguiti da persone 
vengono svolti dalle macchine; 

- i linguaggi naturali, ovvero la 
ricerca di una comunicazione con 
il computer fondata sul linguag¬ 
gio di ogni giorno, non quindi ba¬ 
sata sui vari linguaggi di pro¬ 
grammazione tipo BASIC, Pascal, 
Logo e così via; 

- il trattamento e il riconoscimen¬ 
to delle immagini; 

- i cosiddetti "sistemi esperti", 
che sono il tipo di applicazione di 
maggior successo commerciale: 
si tratta di quei programmi che 
danno alla macchina l'esperienza 
specialistica di un uomo in un cer¬ 
to campo. 

Un esempio che può dare un'idea 
del valore di questo argomento 
(gli scacchi sono solo un passa¬ 
tempo, un punto di partenza se 
vogliamo) ci viene dato dalla me¬ 
dicina. 
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In questo campo i sistemi esperti 
sono in grado di svolgere una 
gran mole di lavoro, specie nella 
diagnostica dove i risultati sono 
spesso superiori a quelli di medici 
specialisti. 

Capire come questo può avvenire 
è abbastanza semplice: basta im¬ 
mettere nella memoria del com¬ 
puter il maggior numero possibile 
di casi. In base a questa esperien¬ 
za acquisita e confrontando le 
analisi effettuate sul paziente, è 
possibile ritrovare casi analoghi 
già visti in precedenza ed emette¬ 
re quindi una diagnosi probabile. 
Come vedete la macchina non fa 
altro che ripetere quello che fa¬ 
rebbe il medico stesso, solo che 
impiega molto meno tempo. 
Sistemi esperti vengono usati mol¬ 
to spesso pure nell'Industria, an¬ 
che se l'aspetto più rilevante, per 
quanto riguarda l'intelligenza arti¬ 
ficiale, è dato dalle applicazioni di 
robotica, specie nelle grandi fab¬ 
briche. 


ADVENTURE 


di P. Todorovich 


L Adventure è un gioco dove 
il computer propone una si¬ 
tuazione più o meno complicata 
al giocatore il quale deve risolver¬ 
la sfruttando le prorie doti di intel¬ 
ligenza e deduzione trovando 
una frase "chiave" che gli con¬ 
senta il passaggio alla situazine 
successiva. 

I giochi ó'Adventure si contrap¬ 
pongono ai giochi del tipo "Arca¬ 
de" quali ad esempio Pacman 
oppure Tron: i primi propongono 
delle situazioni statiche che richie¬ 
dono al giocatore di riflettere un 
po' per decidere sul da farsi. 

Gli Arcade invece propongono 
situazioni estremamente dinami¬ 
che con oggetti da colpire o da 
evitare lasciando quindi poco 
spazio alla riflessione richiedendo 
invce riflessi pronti e velocità. 



I due tipi di gioco si differenziano 
tra l'altro per il modo con cui si 
presentano al giocatore: negli ar¬ 
cade si cerca in generale di esal¬ 
tare e di differenziare la grafica 
dato che, a ben guadare, il fine di 
questi giochi è sempre lo stesso: 
colpire un bersaglio e/o evitare 
degli ostacoli allo scopo di so¬ 
pravvivere il più a lungo possibile 
accumulando così il massimo 
punteggio. 

II giocatore compie quindi gli 
stessi movimenti con il joystick 
qualunque sia il gioco. 
Malignamente si potrebbe osser¬ 
vare che con gli arcade non si vin¬ 
ce mai: si possono ottenere pun¬ 
teggio elevatissimi e superare in 
bravura tutti gli altri giocatori ma 
non si potrà mai vincere contro la 
macchina che proponendo situa¬ 
zioni sempre più difficili riesce ad 
avere ragione anche del giocato¬ 
re più abile che soccombe se non 
altro per stanchezza. 

Nelle adventure invece la vittoria 
del giocatore è prevista (malgra¬ 
do ad essa possano frapporsi nu¬ 
merose difficoltà) e ciò rende il 
gioco forse più stimolante e, alla 
fine, appagante di un arcade. 
Come si presentano invece le 
adventure: esse sono general¬ 
mente scritte, ovvero il computer 
propone la descrizione di un luo¬ 
go e degli eventuali personaggi 
che lo popolano lasciando alla 
fantasia del giocatore il compito 
di immaginare la scena. 

Bisogna dire che, ultimamente, 
sono state create delle adventure 
che, oltre ai testi, propongono 
delle descrizioni grafiche delle si¬ 
tuazioni, questa fusione ha dato 
dei risultati notevolmente interes¬ 
santi. 

Purtroppo bisogna notare che an¬ 
cor oggi molti dei computer più 
diffusi non dispongono di una 
grafica sufficientemente accurata 
o di facile gestione tale da con¬ 
sentire la erezione di questa ulti¬ 
ma specie di adventure che non è 
quindi molto diffusa (per ora). 



La descrizione di ambienti e per¬ 
sonaggi, sia con l'uso di testi, che 
con l'uso della grafica, comporta 
una notevole richiesta di memoria 
che diventa tanto maggiore 
quanto più accurata, ricca di par¬ 
ticolari e di possibili frasi chiave è 
il gioco. 

Questo fatto può risultare negati¬ 
vo nel caso si disponga di piccole 
macchine prive di drives che non 
permettono di memorizzare molti 
dati e, soprattutto, di accedervi 
velocemente. 

Molte adventue, sia per i motivi 
detti, sia per semplicità consento¬ 
no al giocatore un numero molto 
limitato di possibili azioni ovvero 
solo quelle essenziali a risolvere 
la situazione proposta. Esistono 
però delle piacevoli eccezioni 
cioè giochi in grado di gestire an¬ 
che il "superfluo" ma soprattutto 
di far muovere molti personaggi 
con i quali è possibile colloquiare 
vastamente. 

Alcuni di voi avranno notato la 
scarsa disponibilità di adventure 
scritte in italiano: in effetti questi 
giochi hanno da tempo un enor¬ 
me successo all'estero mentre so¬ 
no stati un po' ignorati nel nostro 
paese. 

In questo numero troverete un 
programma base per creare 
adventure, che vi permetterà di 
scrivere games di vostra ideazio¬ 
ne senza doversi occupare delle 
routines di gestione. 














PROGRAMMI PER PCI28 
OLIVETTI PRODEST 


I programmi presentati in questo libro consentono di 
utilizzare immediatamente il computer PC 128 Pro- 
dest. 

Grazie alle note ed ai commenti che accompagnano i 
listati, il libro può anche essere considerato una pre¬ 
ziosa miniera di esempi per chi si awicina per la prima 
volta alla programmazione. 

Le applicazioni trattate coprono tutti i campi in cui 
può essere utilizzato il computer: dal calcolo, alla ge¬ 
stione dati, ai giochi. 

SOMMARIO: 

- Calendario - Bioritmi - Effetti grafici - Business 
Graphic - Diagrammi - Programmatore di caratteri 
grafici - Indovina la parola - Intervista - Gioco del 
sasso - Anagramma - Numeri romani - Codice a co¬ 
lori - Monitor - Codifica crittografica - Animali - Quiz 
master - Archivio - Adventure Dracula - Bilancio fa¬ 
miliare - Agenda telefonica 
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Dopo una prima dettagliata descrizione del PC 128 Olivetti Pro- 
dest, imperniata sull'uso e ia conoscenza del sistema di base 
(tastiera, editor, periferiche), il libro affronta ia programmazione 
BASIC e altri argomenti utili alla gestione della macchina. 
Capitolo dopo capitolo, la versatilità e la potenza dei PC 128 ven¬ 
gono esplorate in profondità, restituendo al lettore un quadro 
dettagliato e pieno di sfumature, ma nel contempo di facile com¬ 
prensione. 

Al fine di raggiungere questo obiettivo, il testo è stato corredato 
da numerosi esempi, nella convinzione, che ia presentazione di 
problemi concreti delle rispettive risoluzioni, sia il modo più sem¬ 
plice e immediato di mettere chiunque nelle condizioni d’appren¬ 
dere proficuamente una nuova tecnica: quale è per molti la pro¬ 
grammazione su home computer. 

Nell’opera, non manca un primo approccio guidato all’uso “serio" 
del computer, tramite quei programmi, indispensabili a chi voglia u- 
sare // PC 
Data Bas 
strumenti 


L. 29.000 


128 nel proprio ambito prò 
e, Spreadsheet e Word 
estremamente versatili e 


fessionale, quali: 
Processor, 
di facile uso. 
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E ccoci di nuovo alla 
carica con un nuo¬ 
vo ed appassionante 
game di recentissima im¬ 
portazione. Blagger, 
questo il nome del "su- 
pergioco" del mese, una 
avventura di alto livello 
grafico che non man¬ 
cherà di entusiasmarvi 
impegnandovi in numerose e di¬ 
vertenti partite. 

Il personaggio di turno, soggetto 
dell'avventura è Roger il ladro che 
dovrete aiutare nel suo ritorno a 
casa attraverso una moltitudine di 
schermi pieni di difficoltà di ogni 
tipo. Il sistema per superare cia¬ 
scuno schermo consiste nel rac¬ 
cogliere tutte le chiavi d'oro spar¬ 
se per il percorso e raggiungere 
la speciale porta posta in punti 
strategici del percorso. Vi accor¬ 
gerete presto, giocando, come il 
compito di raggiungere tutte le 
chiavi non sia affatto semplice e 
per riuscirci occorre scegliere un 
preciso percorso e valutare atten¬ 
tamente tempi e spostamenti de¬ 
gli oggetti in movimento.. A diffe¬ 
renza di molti altri games in cui 
volta a volta vi trovate in situazio¬ 
ni di gioco differenti, qui tutto è 
cronometricamente preciso e al¬ 
trettanto precisi dovranno essere i 
vostri spostamenti per riuscire a 
superare tutti i livello del gioco. Il 
numero di schermi diversi, garan¬ 
tisce che scoperta la giusta via 
per passare in uno degli schermi, 
ci sia sempre da studiare il suc¬ 


cessivo e quindi mai di annoiarsi. 

IL GIOCO 

Il primo schermo da superare pre¬ 
senta tutti i tipi di difficoltà che tro¬ 
verete in seguito e alle quali do¬ 
vreste abituarvi: come piani mo¬ 
bili o cedevoli, oggetti pericolosi 
fermi o in movimento, ecc. I piani 
mobili permettono lo spostamen¬ 
to solo in un senso, quelli cedevoli 
consentono il passaggio di Roger 
generalmente per una sola volta. 
Nel decidere il percorso da pren¬ 
dere è necessaria sempre una ac¬ 
curata analisi di tali fattori, altri¬ 
menti un urto contro un oggetto 
indesiderato o una situazione 
senza uscita, concluderà presto la 
missione. Tenete sempre presente 
che non potete effettuare salti ol¬ 
tre una certa altezza e che il tem¬ 
po disponibile per passare di 
schermo in schermo, seppure 
molto, non è illimitato. Durante il 
gioco, nella parte inferiore del vi¬ 
deo compaiono informazioni ri¬ 
guardanti il numero di schermo, le 
vite rimaste, (si parte con 4 vite) i 
punti e una barra azzurra indican¬ 
te il tempo trascorso. 


IL PRIMO SCHERMO 

Con un po' di abilità e 
pazienza è abbastanza 
facile-trovare la giusta 
via per passare di scher¬ 
mo, cosa che avviene, ri¬ 
petiamo, una volta prese 
tutte le chiavi e raggiun¬ 
ta la porta; ciononostan¬ 
te, per i meno esperti, 
ecco in sintesi un'ottima strategia 
per superare il primo. Dalla posi¬ 
zione iniziale saltate in direzione 
del piano mobile sopra di voi. 
Con un nuovo balzo evitate l'o¬ 
stacolo e prendete la chiave po¬ 
sta in basso e poi, con salti suc¬ 
cessivi (tenendo cioè sempre pre¬ 
muto il tasto " fi re " ) risalite i piani 
raggiungendo il piccolo ripiano a 
sinistra dopo aver preso la terza 
chiave portatevi verso destra e 
scendete per conquistare le ultime 
due chiavi. Per compiere quest'ul¬ 
timo impresa utilizzate il ripiano 
più in basso facendo molta atten¬ 
zione ad evitare il carrello mobile 
che in caso di manovra errata vi 
schiaccerebbe inesorabilmente. 
L'ultima difficoltà consiste nel riu¬ 
scire con due balzi, ben ponderati 
ad aggirare l'ostacolo accanto 
alla porta d'uscita ma, con un po' 
di pratica, non costituirà più un 
problema e di volta in volta supe¬ 
rerete con disinvoltura l'intero 
schermo. 

CARICAMENTO E COMANDI 

Per caricare il gioco, inserite la 
cassetta nel registratore, assicu- 









ratevi che il nastro sia compieta- 
mente riavvolto e digitate LOAD 
seguito da RETURN. Apparirà la 
scritta FOUND BLAGGER e il na¬ 
stro si riavvierà automaticamente 
per presentare di lì a poco READY 
col cursore lampeggiante. A que¬ 
sto punto date RUN seguito do 
RETURN per caricare il resto del 
game. 

Buon divertimento!! 


Editoriale Jackson, 
proprietario esclusivo 

l'Italia di questo gioco, invita i lettori 
che ne fossero a conoscenza, a 
segnalare l'esistenza di eventuali altre 
pubblicazioni contenenti questo stesso 
gioco, alla redazione della nostra 
rivista. 

Le prime tre segnalazioni saranno 
convenientemente compensate. 


M SUPERGAME C16&Plus4 ^ 
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IL LISTATO 

Per completezza presentiamo an¬ 
che il listato esadecimale del su- 
pergame, da cui è stato ricavato il 
programma registrato su cas¬ 
setta. 

Il programma si compone di un 
listato basic (caricatore) e dal 
blocco LM principale occupante 
le locazioni 1000-3FE9 Hex. 


1 C-C*l 

2 IFC-1THENL0AD"BLAGSET",1 ,1 

3 POKE 1288,255 
5 GOTO 290 

1 0 FORT-0T028 : R EADA : POK E1 6 30 ♦ T ,A : NE XT 
20 SYS 16 30 

100 DATA 169,1,162,1 ,160,1 ,32,186,255,169 
,3,162,120,160,6,32,189,255 
200 DATA 169,0,32,21 3,255,76,26,36.64,64 , 
6 H 

290 P0KE65280* 1 8,1 9 2 :POKE65280*19,U8:POK 
E65280*7.136 

300 PRINT"(CLR)": COLORA,1 , 1 : COLORO,1,1 


305 COLORI,7,5 

310 PRINTTAB(12);"IRVS UN I0ABCDEFGH IJK" 
315 COLORI ,7 ,U 

320 PRINTTAB(12)(RVS 0N)LMNOPQRSTUVW" 
325 COLORI,7.3 

330 PR1NTTAB(12);"(RVS ON ) XYZi \ ! 

" ;CHR$(3« ) : 

333 PRINTTABG2) ;"(BLACK) I 12 CBM Y 1 " 

335 COLORI,2,5 

3^0 PR INTT A 8(25)" COMMODORE 16" 

3*15 COLORI ,13.6 

350. PR INT " { CUR . G IU } ( 7 SPCJWRITTEN BY BRA 
N DON JAMES." 

360 PR INT " { CUR . G 11)} COPYRIGHT 1985(2 SPC 
(ALLIGATA SOFTWARE LTD " 

370 PR INT" ( CUR . G IU ) (PINK)(U SPC)1NSTRU 
CTI0NS" 

380 PR INT"{CUR.G IU)1 . T0 START THE GAME 
PRESS THE" 

390 PR INT " ( <4 SPC) (WHITE)SPACE(PINK) BAR 
TO USE THE KEYB0ARD" 

U00 PR1NT"(U SPC(CONTROLS OR (WH ITE IFIRE 
(PINK) TO USE JOYSTICK" 

U10 PRINT"(CUR~GIU)2 . KEYBOARD CONTROLS 
.. I WH ITE ) Z(P IN K) LEFT" 

U20 PRINT’MU SPC) (WHITE)XIPINK) R 1GHT ( 2 
SPC)(WHITE)SHIFT(PINK) JUMP" 

U30 PRINT"(CUR.GIU)3 • TO PROCEED T0 THE 
NEXT LEVEL G0 T0" 

MH0 PR INT"{U SPC ) THE SAFE AND PRESS { WH I 
TE)F IRE(P INK) OR (WH ITE)SH IFT(P INK)" 
610 PR INT" ( YELLOW) l CUR .GIU ) ( 3 SPOPKESS 
A KEY TO CONTINUE LOADING.." 

620 GETA$:IFA$-""THEN620 
625 PRINT"(CLR)“ 

630 GOT010 


BLAGGER LM 


1 000 : 

: 8 2 

AA 

FF 

FF 

FF 

FF 

82 

82 

38 

38 

1 C 

5C 

1 00C : 

: UÈ 

FE 

E7 

E7 

E8 

EC 

EE 

EC 

EO 

EC 

EE 

EC 

1018: 

:3E 

76 

F2 

FO 

FO 

F2 

76 

3E 

E8 

EC 

EC 

EE 

102U : 

:EE 

EC 

EC 

E 8 

FC 

DC 

CU 

FO 

FO 

CU 

DC 

FC 

1030: 

: FC 

DC 

CC 

DO 

F8 

D8 

CO 

CO 

2 E 

66 

E2 

EO 

1 03C : 

:E0 

EE 

6C 

28 

EE 

EE 

EE 

FE 

EE 

EE 

EE 

EE 

1 0U8 ; 

: 38 

38 

38 

38 

38 

38 

38 

38 

OE 

OE 

OE 

OE 

1 05U : 

: OE 

EE 

EC 

58 

EE 

EC 

E8 

EO 

E8 

EC 

EE 

EF 

1060: 

:E0 

EO 

EO 

EO 

E2 

E6 

EE 

FE 

66 

EE 

EE 

66 

106C: 

: 36 

B3 

DB 

DB 

CE 

E6 

F 2 

78 

3C 

9 E 

CE 

E6 

1078; 

: 28 

6C 

EE 

EE 

EE 

EE 

6C 

28 

EC 

EE 

EE 

EC 

1 08U : 

: EO 

EO 

EO 

EO 

28 

6C 

EE 

EE 

E6 

EA 

6C 

2 E 

1090 : 

: EC 

EE 

EE 

EC 

EO 

E8 

EC 

EE 

6 E 

C6 

F2 

78 

1 09C : 

• 3C 

9E 

C6 

EC 

EE 

D6 

BA 

38 

38 

38 

38 

38 

10A8 : 

:EE 

EE 

EE 

EE 

EE 

EE 

6C 

28 

EE 

EE 

76 

7 U 

10BU : 

ì 38 

38 

1 C 

18 

DB 

DB 

B7 

36 

66 

EE 

EE 

66 

10C0 : 

: EE 

E6 

76 

72 

38 

38 

9C 

DC 

EE 

EC 

7 U 

70 

1 0CC : 

: 38 

38 

38 

38 

DC 

9C 

BC 

38 

70 

76 

E6 

EE 

1 008 : 

: AA 

AA 

OF 

3C 

FO 

FO 

AA 

AA 

AA 

AA 

CO 

FO 

10EU : 

: 3F 

OF 

AA 

AA 

AA 

95 

2 A 

25 

OB 

OB 

02 

02 

1 OFO : 

: AA 

56 

A8 

58 

EO 

EO 

80 

80 

38 

82 

82 

38 

1 0FC : 

: 30 

3C 

30 

3C 

00 

00 

00 

00 

00 

00 

00 

00 

1108: 

• 3 E 

3F 

3F 

00 

F3 

F3 

F 3 

00 

00 

28 

D7 

D7 

1 1 1 U : 

:D7 

D7 

28 

00 

00 

28 

D7 

D7 

D7 

D7 

28 

00 

1 120 : 

: 00 

28 

EB 

EB 

EB 

EB 

28 

00 

00 

28 

FF 

FF 

1 12C: 

: FF 

FF 

28 

00 

00 

28 

C3 

C 3 

C3 

C 3 

28 

00 

1138: 

:CC 

FF 

33 

FF 

CC 

FF 

33 

FF 

00 

00 

33 

FF 

1 1 UU : 

: CC 

FF 

33 

FF 

00 

00 

00 

00 

CC 

FF 

33 

FF 

0 15° 

: 00 

00 

00 

00 

00 

00 

33 

FF 

00 

FF 

FF 

AA 

X1 5 C : 

: AA 

FF 

FF 

00 

00 

FC 

FC 

A8 

A8 

FC 

FC 

00 

V 1 168 

: 00 

FO 

FO 

AO 

AO 

FO 

FO 

00 

00 

•co 

CO 

80 

1 17U 

: 80 

CO 

CO 

00 

C3 

D7 

FF 

FF 

FF 

FF 

82 

82 

1 1 80 

: 28 

6C 

EE 

EE 

EE 

EE 

6C 

28 

OE 

3E 

DE 

1 E 

1 18C 

: 1 E 

1 E 

1 E 

1 E 

6C 

F6 

F6 

66 

OC 

10 

FE 

FE 


19 




































# LISTATO ESADECIMALE DEL SUPERGAME 4- 


1 1 98 :1 C 

CE 

EE 

08 

1 8 

OE 

EE 

DC 

2C 

2C 

6C 

6C 

1774:00 

00 

90 

00 

00 

90 

00 

00 

60 

00 

00 

60 

1D51 : 55 

1 1 

44 

44 

44 

77 

44 

74 

77 

47 

74 

B4 

2 32 D: 11 

1 4 

1 4 

44 

34 

94 

44 

43 

55 

44 

44 

44 

1 1 A 4 :EE 

OC 

OC 

OC 

FE 

FE 

80 

70 

1 C 

OE 

8E 

DC 

1780:00 

01 

08 

00 

01 

08 

00 

04 

02 

00 

04 

02 

1D5D: 57 

34 

44 

74 

44 

55 

1 1 

41 

44 

44 

77 

35 

2339:44 

55 

22 

44 

44 

1 1 

44 

44 

44 

44 

55 

54 

1 1BO: 32 

66 

E2 

E8 

EC 

EE 

6C 

28 

FE 

FE 

04 

1 C 

178C :00 

00 

00 

00 

02 

05 

00 

08 

91 

00 

08 

91 

1D69: 45 

A5 

A5 

A4 

A4 

44 

75 

75 

C5 

D5 

55 

1 1 

2345:54 

54 

44 

44 

44 

44 

55 

22 

44 

44 

1 1 

44 

11BC: 38 

78 

FO 

FO 

28 

6C 

EE 

6C 

28 

6C 

EE 

6C 

1798 :00 

08 

91 

00 

02 

84 

00 

00 

90 

00 

00 

90 

1D75 : 44 

44 

44 

77 

44 

34 

44 

44 

1 4 

44 

77 

44 

2351 : 42 

44 

44 

42 

42 

44 

47 

63 

67 

67 

67 

55 

11C8 : 28 

6C 

EC 

6 E 

2E 

OC 

CC 

D8 

FO 

FO 

F5 

FO 

1 7 A 4 : 00 

00 

90 

00 

00 

90 

00 

00 

90 

00 

00 

90 

t D81 : 7 4 

55 

B4 

55 

1 1 

44 

44 

44 

77 

64 

44 

44 

235 D: 22 

44 

44 

1 1 

44 

22 

42 

C2 

D2 

22 

44 

44 

1 1D4:FO 

FO 

F5 

FO 

OF 

OF 

5F 

OF 

OF 

OF 

5F 

OF 

17B0:00 

00 

90 

00 

00 

90 

00 

00 

90 

00 

00 

90 

1D8D:41 

44 

44 

77 

44 

44 

75 

4 4 

55 

55 

44 

44 

2369:64 

64 

44 

44 

55 

25 

44 

44 

44 

1 4 

44 

41 

1 1EO:00 

22 

4 C 

25 

A 2 

4 C 

30 

30 

00 

FF 

FF 

D5 

17BC : 00 

00 

00 

00 

00 

00 

00 

05 

50 

00 

04 

10 

1D99 : 44 

75 

43 

44 

17 

B4 

47 

44 

55 

46 

41 

43 

2375:43 

1 4 

44 

4 1 

44 

1 4 

41 

44 

44 

55 

55 

55 

11EC:D5 

D5 

D5 

D5 

00 

FF 

FF 

57 

57 

57 

57 

57 

17C8: 00 

04 

90 

00 

04 

10 

00 

04 

90 

00 

04 

1 0 

1 DA5 : 44 

55 

55 

55 

55 

55 

55 

55 

55 

55 

55 

55 

2381 :55 

55 

55 

55 

55 

55 

55 

55 

55 

55 

55 

55 

11F8:DD 

DA 

DA 

DD 

D5 

D5 

FF 

FF 

57 

57 

57 

57 

17D4:00 

04 

90 

00 

04 

10 

00 

10 

90 

00 

10 

05 

1 DB 1 : 55 

55 

55 

55 

55 

55 

55 

55 

5C 

5D 

54 

54 

238D: 55 

55 

55 

55 

54 

53 

57 

54 

54 

54 

54 

51 

1204: 57 

57 

FF 

FF 

00 

00 

00 

00 

00 

00 

00 

00 

17E0: 40 

10 

00 

1 0 

1 0 

00 

04 

1 0 

40 

04 

1 1 

1 4 

1DBD: 54 

54 

56 

54 

54 

57 

54 

57 

54 

57 

54 

55 

2399:54 

54 

54 

54 

54 

5C 

5D 

55 

55 

44 

44 

77 

1210:01 

00 

02 

OA 

02 

00 

00 

02 

50 

64 

54 

94 

1 7 EC: 04 

05 

01 

54 

00 

00 

00 

05 

50 

00 

04 

1 0 

1DC9: 55 

44 

44 

44 

E4 

44 

45 

64 

44 

44 

44 

77 

2 3A5 : 7 4 

74 

74 

71 

44 

44 

73 

74 

74 

74 

74 

44 

121C: A4 

AO 

AO 

90 

3F 

3F 

3F 

00 

F 3 

F3 

F 3 

00 

17F8:00 

04 

90 

00 

04 

10 

00 

04 

90 

00 

04 

10 

1DD5: 47 

74 

44 

74 

55 

55 

44 

3 1 * 

44 

45 

55 

55 

23B1 :55 

55 

44 

44 

47 

47 

47 

47 

47 

44 

44 

77 

1 228 : 00 

00 

00 

00 

00 

00 

00 

00 

01 

00 

OA 

08 

1804:00 

04 

90 

01 

04 

1 0 

05 

1 0 

90 

1 1 

1 0 

05 

IDEI : 35 

44 

45 

22 

44 

44 

1 1 

44 

B4 

55 

55 

44 

23BD: 7 4 

77 

44 

77 

44 

55 

55 

44 

44 

47 

37 

77 

1234 :08 

1 4 

00 

00 

90 

50 

AO 

AO 

20 

28 

08 

1 4 

1810:45 

10 

00 

1 4 

10 

00 

50 

10 

40 

50 

1 1 

1 4 

1DED: 44 

55 

55 

54 

55 

55 

55 

55 

24 

44 

44 

1 1 

23C9: 47 

17 

44 

44 

74 

41 

7 4 

74 

74 

44 

55 

55 

1 240 :3F 

3F 

3F 

00 

F3 

F 3 

F 3 

00 

AA 

AA 

CO 

FO 

1 81C : 1 4 

05 

01 

55 

00 

54 

00 

00 

19 

00 

00 

95 

1DF9 : 44 

4 B 

55 

55 

44 

44 

44 

54 

57 

57 

57 

37 

23D5: 44 

44 

47 

47 

47 

47 

47 

44 

47 

44 

17 

47 

1 24C : 3F 

OF 

AA 

AA 

AA 

AA 

OF 

3C 

FO 

FO 

AA 

AA 

1828 :00 

02 

A5 

00 

00 

A9 

00 

00 

28 

00 

00 

28 

1E05: 47 

44 

45 

44 

1 1 

44 

44 

55 

55 

44 

44 

44 

23E1 : 47 

47 

44 

55 

55 

44 

44 

47 

47 

47 

43 

47 

1 258 : AA 

AA 

CO 

FO 

3F 

OF 

AA 

AA 

3F 

3F 

3F 

00 

1834:00 

00 

A4 

00 

00 

24 

00 

00 

A4 

00 

00 

A8 

1 E 1 1 : 4 4 

22 

23 

22 

64 

54 

44 

54 

44 

1 1 

44 

B4 

23ED:44 

44 

47 

44 

44 

44 

44 

44 

55 

55 

44 

4 4 

1 264 : F3 

F 3 

F 3 

00 

00 

00 

00 

00 

00 

00 

00 

00 

1840:00 

00 

28 

00 

00 

28 

00 

00 

28 

00 

00 

28 

1E1D:55 

55 

43 

44 

47 

77 

22 

44 

4 A 

7 A 

4 A 

7 A 

23F9 : 7 7 

44 

77 

47 

77 

44 

44 

77 

74 

74 

74 

73 

1270:00 

80 

AO 

85 

00 

02 

02 

02 

00 

00 

00 

00 

184C: 00 

00 

58 

00 

00 

54 

00 

00 

19 

00 

00 

95 

1E29 : 4 A 

7 A 

1 1 

44 

44 

55 

55 

55 

55 

55 

55 

55 

2405 : 44 

55 

55 

55 

55 

55 

55 

55 

55 

55 

55 

55 

127C: 52 

8 A 

82 

80 

00 

00 

00 

00 

00 

00 

00 

00 

1858:00 

02 

A5 

00 

00 

A9 

00 

00 

28 

00 

00 

28 

1£35 :55 

55 

55 

55 

55 

55 

55 

55 

55 

55 

55 

55 

2411:55 

55 

55 

55 

55 

55 

50 

FF 

00 

20 

D2 

33 

1288:00 

00 

00 

00 

00 

00 

00 

00 

CE 

FF 

BB 

FF 

1864 :00 

00 

A4 

00 

00 

64 

00 

00 

1 4 

00 

02 

A8 

1E41 : 5 3 

54 

57 

57 

5 B 

56 

56 

54 

54 

57 

53 

57 

241D:4C 

5C 

31 

20 

3E 

27 

AD 

00 

36 

DO 

03 

4 C 

1 294 :DC 

FF 

77 

FF 

CC 

FF 

BB 

FF 

CC 

FF 

33 

FF 

1870:00 

02 

28 

00 

02 

08 

00 

05 

OA 

00 

00 

02 

1E4D:54 

57 

57 

55 

55 

44 

44 

44 

71 

74 

67 

47 

2429 : 4C 

24 

C9 

2F 

DO 

03 

4C 

4 C 

24 

C9 

20 

FO 

12AO: 00 

00 

00 

00 

00 

00 

00 

00 

3F 

3F 

3F 

00 

187C: 00 

00 

05 

00 

00 

54 

00 

00 

19 

00 

00 

95 

1E59 : 44 

47 

77 

44 

77 

44 

44 

44 

55 

55 

44 

44 

2435:03 

4C 

4 C 

24 

AD 

01 

36 

DO 

03 

4 C 

4 C 

24 

12AC :F 3 

F3 

F 3 

00 

3F 

3F 

3F 

00 

F3 

F3 

F3 

00 

1888:00 

02 

A5 

00 

00 

A9 

00 

00 

28 

00 

00 

28 

1E65 : 44 

44 

44 

44 

44 

74 

74 

47 

44 

00 

44 

44 

244 1 :C9 

2F 

DO 

03 

4C 

4 C 

24 

C9 

20 

FO 

08 

A9 

12B8: 3F 

3F 

3F 

00 

F 3 

F 3 

F 3 

00 

3F 

3F 

3F 

00 

1894 :00 

00 

A4 

00 

00 

24 

00 

00 

65 

00 

00 

69 

1 E71 : 64 

55 

55 

44 

44 

44 

24 

44 

44 

44 

47 

77 

2 4 4 D: 00 

8D 

9 A 

35 

8 D 

9B 

35 

A5 

C6 

C9 

04 

DO 

12C4:F 3 

F3 

F3 

00 

A 2 

AA 

FF 

FF 

FF 

FF 

2 A 

2 A 

18AO: 00 

00 

28 

00 

00 

8 A 

80 

00 

A 2 

40 

00 

81 

1 E7D:74 

44 

00 

44 

44 

44 

55 

55 

44 

44 

44 

75 

2459:03 

4C 

1 A 

24 

AD 

C9 

37 

FO 

03 

4 C 

F3 

34 

12D0:AA 

FB 

FF 

FF 

FF 

FF 

AA 

8A 

AO 

AA 

FF 

FF 

18AC : 00 

01 

40 

00 

00 

15 

00 

00 

44 

00 

00 

56 

1E89 : 75 

45 

75 

75 

45 

45 

45 

71 

44 

74 

67 

55 

2465 : AD 

Al 

35 

FO 

03 

4 C 

F 3 

34 

AD 

90 

3C 

20 

12DC:FF 

FF 

AA 
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8 D 
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8 D 

7F 

33B9: CD 

CA 

35 

FO 

03 

HC 

97 

33 

AD 

C7 

35 

CD 

3995:03 

HC 

FC 

39 

AD 

C5 

3C 

85 

D3 

AD 

CH 

3C 

3 F 71 :FF 

AA 

OA 

AO 

AA 

FF 

FF 

FF 

FF 

OA 

OA 

AO 

2DE9: 35 

OE 

80 

35 

2 E 

7 F 

35 

OE 

80 

35 

2E 

7 F 

33C5:C9 

35 

FO 

03 

HC 

97 

33 

E8 

EO 

03 

DO 

AE 

39A 1 : 85 

D2 

AO 

00 

8C 

8 A 

3D 

A9 

10 

8 D 

8B 

30 

3F7D:AA 

FF 

FF 

FF 

FF 

OA 

OA 

AO 

AA 

FF 

FF 

FF 

2DF5: 35 

OE 

80 

35 

2E 

7F 

35 

OE 

80 

35 

2E 

7 F 

3 3 D1 : 60 

A 9 

01 

8D 

F8 

35 

20 

6C 

3*4 

A9 

00 

8D 

39AD:AD 

BF 

3C 

8D 

CC 

3C 

A 9 

OH 

8D 

CD 

3C 

AD 

3F89:FF 

OA 

OA 

AO 

AA 

FF 

FF 

FF 

FF 

OA 

OA 

AO 

2E01 : 35 

AD 

80 

35 

18 

6 D 

6C 

36 

8D 

80 

35 

AD 

3 3DD: 19 

FF 

20 

D2 

2 E 

20 

FE 

2E 

20 

C3 

31 

20 

39B9:8a 

3D 

8D 

CF 

3C 

AC 

8 A 

3D 

18 

B 1 

D2 

6 A 

3F95:AA 

FF 

FF 

FF 

FF 

OA 

OA 

AO 

FF 

FF 

FF 

FF 

2E0D : 7F 

35 

69 

00 

8D 

7 F 

35 

AD 

80 

35 

18 

69 

33E9 : H8 

32 

AO 

05 

A 2 

OA 

18 

20 

FO 

FF 

A 2 

00 

39C5 :91 

D2 

08 

18 

98 

69 

08 

a8 

28 

CE 

CD 

3C 

3 F A 1 :FF 

AA 

FF 

00 

FF 

00 

FF 

00 

FF 

00 

FF 

00 

2 E1 9 s 7 *4 

8D 

28 

2 E 

AD 

7 F 

35 

69 

36 

8 D 

29 

2E 

33F5:BD 

D7 

35 

20 

D2 

FF 

E8 

EO 

15 

DO 

F5 

A2 
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8 D 
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A9 

08 

8 D 

C8 

37 

AD 

*» 

05 

3A 31 : AC 

D2 

3C 

B 1 

DO 

8D 

1 B 

3D 
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CE 
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A9 

00 

8D 

19 

FF 
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A9 

32 

8D 

17 

FF 

A 9 

71 

8 D 

16 

3HB5:FF 

20 

53 

33 

20 

53 

33 

20 

53 

33 

60 

A9 
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PICKMAN 

Trad. ed adatt. di S. Albarelli - di Jack Sonders 


GUIDA ALL'INPUT 
CI 6 & PLUS 4 

TABELLA DI CONVERSIONE 

{HOME} . HOME 

{CLRÌ . PULIZIA SCHERMO 

{CUR.SU} . CURSORE IN ALTO 

{CUR.GIU} .... CURSORE IN BASSO 
{CUR.DES} .... CURSORE A DESTRA 

{CUR.SIN} . CURSORE A SINISTRA 

{SPC} . SPAZIO 

{RVSON! . REVERSE ON 

{RVSOFF} . REVERSE OFF 

{INSTJ . INSERT 

{BLACK} . COL. NERO (CTRL + Ì) 

{WHITE} . COL. BIANCO (CTRL+2) 

{RED} . COL. ROSSO {CTRL+3} 

{CYAN} . COL. CIANO (CTRL+4) 

{PURPLE} . COL. PORPORA (CTRL+5) 

{GREEN} . COL. VERDE (CTRL+6) 

{BLUE} . COL. BLU (CTRL+7} 

{YELLOW} . COL. GIALLO (CTRL+8) 

{ORANGE} ... COL. ARANCIO (CBM+1) 

{BROWNJ . COL. MARRONE (CBM+2Ì 

{YL-GREEN} COL. GIALLO-VERDE (CBM+3J 

{P/NK} . COL. ROSA (CBM+4) 

{BL-GRNJ . COL. BLU-VERDE (CBM+5) 

{LT. BLUE) . COL. BLU CHIARO {CBM+6J 

{D. BLUE} . COL. BLU SCURO {CBM+7) 

{LT. GREEN} . COL. VERDE CHIARO (CBM+8) 

NORME PER LA BATTITURA 

I caratteri grafici, ottenuti con la pressione dei 
tasti "Shifr e "CBM", sono codificati in modo 
da indicare il tasto da premere assieme a "Shift" 
o "CBM". Es. il cuoricino è codificato con 
>SHS<. Il numero dentro le parentesi indica le 
volte che il tasto va premuto. 

NORME PER IL CARICAMENTO 
DEI PROGRAMMI SU CASSETTA 

Le istruzioni di caricamento del supergame ven¬ 
gono riportate nel contesto della relativa descri¬ 
zione. Óltre al supergame sono registati su na¬ 
stro tutti gli altri programmi presentati su questo 
numero i quali vanno caricati, salvo diversa indi¬ 
cazione, con: LOAD <RETURN> 


E cco una nuova e originale interpretazione del 
famosissimo gioco che ha fatto impazzire mi¬ 
lioni di Videogiocatori per la sua giocabilità. 

In questa versione non esistono le pillole che per¬ 
mettono di divorare gli odiati fantasmi e per poter 
giocare è necessario inserire un joystick nella porta 
1 del computer. 

Se si riesce a divorare tutti i "pallini" presenti in una 
schermata (anche i fantasmi li mangiano e perciò 
occorre molta strategia per far sì che non ne divori¬ 
no troppi, perchè più pallini restano sullo schermo e 
più punti si possono utilizzare) si passa a una scher¬ 
mata successiva, in cui c'è un altro tappeto di "pal¬ 
lini" pronti per essere divorati. 

Una caratteristica singolare di questo gioco sono i 
simpatici motivetti che caratterizzano la fine del 
quadro e la morte del pickman. 
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GOSUB2020:PRINT" { 

CLR } 

" : A 

= 65 

298 

:P0KEA , 


PEEK(A)AND251 






30 

P0KEA+1,(PEEK(A+1 

) A N D 

3 ) 0R56 



HO 

POKE52,55 :P0K E 5 4 , 

55 :P0KE 

56 , 

55 : 

V0 L 8 

50 

GOSUB2070:SYS882 






60 

RESTORE70: F0RN=0TO127 

: RE 

ADA 

: PO 

K E 1 4848 


+ N , A :NEXT:G0T0260 






70 

DATA3,15,63,63,12 

3,11 

3,2 

41 , 

251 


80 

DATA192,240,252,252,222, 

1 42 

, 1 4 

3,223 

90 

DATA255,255 , 1 27,1 

27,6 

3,6 

3 , 1 

5 , 3 


. 1 00 

DATA255,255,254 , 

254 , 

252 

,25 

2,2 

40,192 

110 

DATA 3 , 1 5 , 63,63,1 

23 , 1 

1 3 , 

24 1 

.25 


1 20 

DATA 1 92,240,252, 

252 , 

222 

, 1 4 

2 , 1 

43,223 

1 30 

DATA255,255,1 27, 

1 27 , 

63, 

63 , 

1 5 , 

3 

1 HO 

DATA255,255,254, 

254 . 

252 

,25 

2,2 

40,192 

150 

DAT A 3,29,49,33,6 

5,65 

. 1 2 

9,2 

55 


1 60 

DATA255 ,129,65,6 

5,33 

, 4 9 

,29 

,3 


170 

DATAI 92,1 76,1 40, 

1 32 , 

1 30 

,130 , 1 

29,255 

1 80 

DAT A 25 5,1 29,1 30, 

1 30 , 

1 32 

, 1 4 

0 , 1 

76,192 

1 90 

DATA255,129,129, 

129, 

1 29 

, 1 2 

9 , 1 

29,255 

200 

DA T A 3 , 3,0,0,0,0 , 

0,0 
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DATA 15,112,64,12 

8,12 

8,6 

4 , 1 

1 2 , 

1 5 

220 

DAT A 2 4 0,1 4,2 , 1 ,1 

,2,1 

4,2 

40 



230 

YY$=LEFT$(YD$,Y) 

: PRI 

NTY 

Y $ ; 

: PR 

INTTAB( 


X)"GREG": STOP 






2 4 0 

SYS837:CH=PEEK(2 

15): 

RET 

URN 



250 

SYS837 : CM = P E E K(2 

15) : 

RETURN 



260 

HI-1000 






270 

REM * * * * R0UTINE 

PRIN 

C I P 

ALE 

* * # 

# 

280 

REM 






290 

SC = 0 : C0=8 : LI-3 






300 

GOSUB430 : T $ - " (SH 

Mi 

SH 

A}" 

: B $ 

= " { S H B 


} {SH C }" 






1 310 

TI $ = " { S H D } { SH E 

II 

} " : B 

1 $ = 

" {S 

H F 

} (SH G) 
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320 PRINT"(BLUE } " 

330 X = 20 :Y =15 
3 4 0 XI - 1 :Y1«2 :X2-35:Y2-2 
350 GOSUB810 
360 G0SUB1570 
370 C0SUB810 

380 IF(XI«XANDY1= Y)0R(X2=XANDY2*Y)TH E NDE 

« i 

390 IFCO>257THEN’090 
400 IFDE-1THEN1120 
410 G0T0350 

420 REM **»*SCHERM0**** 

430 COLOR4,1 ::COLORO , 1 :PRINT"{HOME){ORAN 
GEJPUNTI 00{6 SPCJVITE ";LI 
440 POKE208,28 :POKE209 , 0 :SYS828:PRINT"HI 
G H " H I 

450 COLORI,6,5 

460 W$ * C HR $ C108) + C H R $(108) :X $ *C H R $(104 ) + 
CHR$(106):V$=CHR$(109) + CHR$(32) 

470 Y$=CHR$(105) + CHR$(107):Z$=CHR$(110)+ 

" {8 SH L}" + CHR$(111) 

480 R$=V$+V$+V$:S$*R$+V$+V$ 

490 PRINTCHR$(104 ) ; :FORT = 0TO37:PRINTCHR$ 
(108); :NEXT:PRINTCHR$C106) ; 

500 A$=CHR$(108)+S$+W$+S$+V$+V$+W$+S$+CH 
R$(108) 

5 1 0 P RI NT A $ ; : Q$«=A$ 

520 PRINT A $ ; 

530 A$=CHR$(108)+V$+CHR$(110)+W$+W$+CHR$ 
(106)+V$+Y$+V$+Z$+V$+Y$+V$ 

540 A$=A$+CHR$(104)+W$+W$+CHR$(1 11 ) + V $ + C 
H R $ ( 1 0 8 ) : P R I N T A $ ; 

550 A$=CHR$(108)+R$+W$+S$+S$+V$+W$+R$+CH 
R $ ( 1 0 8 ) : P R I N T A $ ; 

560 MID$(A$,8,2)=Y$:MID$(A$,32,2)=Y$:PRI 
N T A $ ; 

570 A$=W$+W$+CHR$(106)+R$+X$+V$ + Z$+V$+X$ 
+R$+CHR$(104)+ W $ + W $:PRINTA$; 

580 A$=W$+W$+CHR$(107) + R$ + W$ + S$ + V$ + V$+W$ 
+R$+CHR$(105)+W$+W$:PRINTA$; 

590 A$-CHR$(108)+R$+X$+V$+W$+S$+V$+V$+W$ 

+ V $ + X $ +R$+CHR$(108) :PRINTA$; 

600 A$=CHR$(107) + R$+W$+V$+Y$+V$+CHR$(104 
) + W$ + CHR$(107) + Y$ 

610 A$=A$ + CHR$(105)+W$+CHR$(106)+V$+Y$+V 
$+W$+R$+CHR$(105):PRINTA$; 

620 A$=CHR$(32) + V$+X$+V$+W$+R$+W $+"{6 SP 
C)"+W$+R$+W$+V$+X$+V$ + CHR$(32):PRINT 
A $ ; 

630 MID$(A$,4,2)=Y$:MID$(A$,36,2)=Y$ 

640 PRIN T A $ ; 

650 A $ = C H R $(106) + R$ + W$ + V$ + X$ + V$ + W$ + " {6 S 
PC}"+W$+V$+X$+V$+W$+R$+CHR$(104) 

660 PRI NT A $ ; 

670 J$=A$:A$=CHR$(108)+MID$(J$,2,10)+W$+ 

V$ + CHR$(105) + "(8 SH L)" + CHR$(107 ) 

680 A$=A$+V$+W$ + MID$(J $,30,10 ) + CHR $(108 ) 

;PRI NT A $ ; 

690 A$=W$+W$+CHR$(106)+V$+W$+V$+W$+S$+V$ 
+V$+W$+V$+W$+V$+CHR$(104)+W$+W$ 

700 P RI NT A $ ; 

710 MID$(A$,5,1)=CHR$(107):MID$(A$,36,1) 
=CHR$(105):MID$(A$,8,2)=Y$ 

720 MID$(A$,32,2)*Y$:PRINTA$; 

730 A$=CHR$(108)+S$+W$+V$+Z$+V$-W$+S$+CH 
R$(108) :PRINTA$; :A$=Q$:PRINTA$; 

740 B$=CHR$(104)+W$+W$+CHR$(106):MID$(A$ 
,4,6)=B$:MID$(A$,32,6)=B$:PRINTA$; 

750 B$=CHR$(105) + W$+W$+CHR$(107):MID$(A$ 
,4,6)=B$:MID$(A$,32,6)=B$ 

760 MID$(A$,16,10)=Z$:PRINTA$;Q$;Q$; 

770 PRINTCHR$(105); :F0RT = 0T037:PRINTCHR$ jf 
(108) ; :NEXT:PRINTCHR$(107); :PRINT"{H I 


OME } " 

780 RETURN 

790 REM ****INIZIALIZZA**** 

800 REM ***»I MOVIMENTI*»** 

810 G0SUB1750 
820 IFLE-1THENG0SUB880 
830 IFRI-1THENGOSUB920 
840 IFUP-1THENG0SUB960 
850 IFDN-1THENG0SUB990 
860 G0SUB1 690 : RETURN 

870 REM **** CONTROLLO CONTATTI **** 

880 P0KE208 , X-1 ;P0KE209,Y:G0SUB1 840 :IFCM I 
032THENRETURN 

890 POKE208,X-1 :P0KE209 , Y +1 :G0SUB1840 :IF 
CM032THENRETURN 

900 G0SUB1020 :X-X- 1 ; IFX-0THENX-37 
910 RETURN 

920 P0KE208,X + 2:P0KE209,Y:G0SUB1 840 :IFCM i 
<>32THENRETURN 

930 POKE208,X + 2;P0KE209,Y+1 :G0SUB1 840 ; 1F ! 
CM032THENRETURN 

9 40 G0SUB10 2 0 : X * X + 1 :IFX->38THENX-1 
950 RETURN 

960 POKE208,X :POKE209,Y-1 :G0SUB1840;IFCM 
< >32THENRETURN 

970 POKE208.X+1 :POKE209,Y-1 :G0SUB1 8 40 ; IF 
CM032THENRETURN 
980 GOSUB 1 020 :Y-Y-1 : RETURN 
990 P0KE208,X :P0KE209,Y + 2:G0SUB1840 :IFCM 
032THENRETURN 

1000 P0KE208 , X+1 :POKE209,Y + 2:GOSUB1 840:1 
FCM032THENRETURN 
1010 G0SUB1020 :Y = Y+1 : RETURN 
1020 P0KE208,X :P0KE209,Y:SYS828:PRINT"{2 
SPC } " ; 

1030 POKE208,X :P0KE209,Y +1 :SYS828:PRINT" 

{2 SPC } "; : RETURN 

1040 P0KE208,X1 :P0KE209 , Y1 :SYS828:PRINT" 

{2 SPC}" 

1050 P0KE208,XI :P0KE209,Y1 + 1 :SYS828;PRIN 
T"{2 SPC}" 

1060 POKE208 , X2:P0KE209,Y2 :SYS828:PRINT" 

{2 SPC}" 

1070 POKE208,X2:POKE209,Y2+1:SYS828:PRIN 
T"{2 SPC}": RETURN 

1080 REM ****FINE SCHERMATA**** 

1090 SC*SC + 1 000 :P0KE208,6 :P0KE209,0 :SYS8 
28 :PRINTSC 

1100 RESTOR E2000: TU * 12 :G0SUB1 820 :C0*8:GO 
T0300 

1110 REM ****MORTE**** 

1 120 C$ = T$:D$*B$:DE = 0:G0SUB1020 :RESTORE1 
980 : TU-8 : G0SUB1820 

1130 GOSUB1040:COLOR1,9,4:LI»LI-1:IFLI-0 
THEN1920 

1140 P0KE20 8,1 9 :P0KE209,0 :SYS828:PRINTLI 
: GOTO 3 30 

1150 REM**** MUOVE I FANTASMI **** 

1160 P0KE208,XI -» 1 :POKE209,Y1 :G0SUB240:IF 
CH<>77ANDCH>71THENRETURN 
1170 IFCH=77THENCO=CO + 1 

1 180 POKE20 8,XI - 1 :P0KE209,Y1+1 :G0SUB240: 

IFCH<>77ANDCH>71THENRETURN 
1190 IFCH=77THENCO=CO+1 

1200 G0SUB1040:X1«X1-11 :G0SUB1710:RETURN 
1210 P0KE208,X2-1:POKE209,Y2:GOSUB240:IF 
CH<>77ANDCH>71THENRETURN 
1220 IFCH=77THENCO=CO+1 

1 230 P0KE208,X2-1 :POKE209 , Y2+1 :G0SUB240: 

IFCH< >77ANDCH>71THENRETURN 
1 240 IFCH*77THENC0 = C0 +1 

1 250 G0SUB1 040 :X2 = X2-1 :GOSUB1710 ;RETURN 


























PROGRAMMA 



1260 POKE208,X1+2:POKE209,Y1 : G0SUB240 :IF 
CH<>77ANDCH>71THENRETURN 
1270 IFCH~77THENC0*C0+1 

1280 P0KE208 t X1 + 2 : POKE209 , Y 1 + 1 :GOSl'B240: 

IFCH<>77ANDCH>71THENRETURN 
1290 IFCH-77THENCO-CO+1 

1300 G0SUB10 4 0:X1«XI+1:G0SUB1710:RETURN 
1310 POKE208,X 2 + 2 :P0KE209,Y2:G0SUB240:IF 
CH<>77ANDCH>71THENRETURN 
1320 IFCH-77THENCO-CO+1 

1 330 POKE208,X2+2:POKE209,Y2+1 :G0SUB240 : 

IFCH<>77ANDCH>71THENRETURN 
1340 IFCH=77THENCO=CO+1 

1350 G0SUB1 0 40 :X 2*X 2 +1 :G0SUB1710:RETURN 
1360 POKE208.X1:POKE209,Y1-1:G0SUB240:IF 
CH< >77ANDCH>71THENRETURN 
1370 IFCH=77THENCO=CO+1 

1380 . P0KE208.X1 + 1 :POKE209 , Y 1 - 1 :G0SUB240 : 

IFCH<>77ANDCH>71THENRETURN 
1390 IFCH-77THENCO-CO+1 

1400 G0SUB1 040 : Y1-Y1-1 :GOSUB1710:RETURN 
1410 POKE208,X2:POKE209,Y2-1:GOSUB240:IF 
CH<>77ANDCH>71THENRETURN 
1420 IFCH-77THENCO-CO+1 

1430 P0KE208.X2+1:P0KE209,Y2-1:GOSUB240: 

IFCH<>77ANDCH>71THENRETURN 
1440 IFCH=77THENCO*CO+1 

1450 GOSUB1040 :Y 2* Y 2-1 :G0SUB1710:RETURN 
1460 P0KE208,X1:P0KE209,Y1+2:GOSUB240:IF 
CH<>77ANDCH>7 1 THENRET.URN 
1470 IFCH-77THENCO-CO+1 

1480 POKE208.X1+1 :P0KE209 , Y1+ 2 :G0SUB240: 

IFCH<>77ANDCH>71THENRETURN 
1490 IFCH-77THENCO-CO+1 

1500 G0SUB1040:Y1=Y1+1:GOSUB1710:RETURN 
1510 P0KE208,X2:POKE209,Y2+2:G0SUB240:IF 
CH<>77ANDCH>71THENRETURN 
1520 IFCH*77THENCO*CO+1 

1 530 POKE208.X2+1 :POKE209,Y2 + 2 :GOSUB240 : 

IFCH<>77ANDCH>71THENRETURN 
1540 IFCH-77THENCO-CO+1 

1550 GOSUB1040 :Y 2 = Y 2 + 1 :GOSUB1710:RETURN 
1560 RETURN 

1 570 N-RND(1 ) : IFN>0.7THEN1620 

1580 IFX>X1THENG0SU31260 

1590 IFX<X1THENG0SUB1160 

1600 IFY>Y1THENG0SUB1460 

1610 IFY<Y1THENG0SUB1360 

1620 N-RND(1):IFN>0.6THENRETURN 

1630 IFX>X2THENG0SUB1310 

1640 IFX<X2THENG0SUB1210 

1650 IFY>Y2THENG0SUB1510 

1660 IFY<Y2THENG0SUB1410 

1670 RETURN 

1680 REM ****STAMPA PICKMAN**** 

1690 COLORI ,7,4:POKE208,X:POKE2O9,Y:SYS8 
28 :P RIN TT $ ; 

1700 P0KE208,X:P0KE209,Y+1:SY56?8:PRINTB 
$ ; : RETURN 

1710 COLORI ,3.2:POKE208,X1 :POKE209,Y1 :SY 
S 82 8 :PRINTT1$ ; 

1720 POKE208,X1:POKE209,Y1+1:SYS828:PRIN 
T B 1 $ ; 

1730 POKE208 , X2:POKE209 , Y2:SYS828:PR INTT 
1 $; 

1740 POKE208,X2:POKE209,Y2+1:SYS828:PRIN 
TB1 $ j : RETURN 

1750 LE = 0:RI*0:UP a =0:DN = 0:KS = J0Y(1 ) 

1760 IFKS-7THENLE-1 
1770 IFKS-3THENRI-1 
1780 IFKS*1THENUP*1 
1790 IFKS-5THENDN-1 


1800 RETURN 

1810 REM ****SU0NA IL MOTIVO DI SOTTOFON 
DO **** 

1 820 FORN=1TOTU:READNO,DU:S0UND2 , NO , DU:N 
EXTN: RETURN 

1830 REM ** CONTROLLA I MOVIMENTI ** 

1840 XX=PEEK(208):YY=PEEK(209):G0SUB250 
1 850 IFCM077THEN1 880 

1860 CM*32:SC*SC + 10 :S0UND2,120 f 7 :CO*CO+1 
:P0KE208 f 5 :POKE209,0 :SYS828: COLOR 1 , 
9,4 

1870 PRINTSC:POKE208,XX :P0KE209,YY 

1880 IFCM=32THENRETURN 

1890 IFCM>71THENRETURN 

1 900 DE=1 : RETURN 

1910 REM **** FINE GIOCO **** 

1920 PRINT"{CLR}":POKE208,8 :POKE209,3 :SY 
S828:PRINT"(CYAN}{6 CUR.DES}HA1 PER 
SO! !" 

1930 P0KE208,8 :P0KE209,21 :SYS828:PRINT"{ 
YELLOW} PREMI ’S' PER RITENTARE" 

1 9 40 IFSOHITHENHI-SC :POKE208,10:POKE209 
, 9 :SYS828:PRINT"{PURPLE}UN NUOVO RE 
CORD ! ! !" 

1950 GETA$:IFA$<>"S"THEN1950 
1960 G0T0280 

1970 REM ****MOTIVETTO DI MORTE**** 

1980 DATA685,20,739,20,704,20,643,20,596 
,20,685,20,596,20,810,75 
1990 REM ****MOTIVETTO DI SOTTOFONDO**** 
2000 DATA596,20,645,20,685,20,704,20,739 
,40,685,40 

2010 DATA810,20,739,20,810,20,798,20,810 
,40,596,40 

20 20 RESTORE2030 :FORN-0TO5 3:READA:POKE82 
8 + N,A :NEXT 

2030 DATA24,166,209,164,208,32,240,255,9 
6,169,0,133,210,169,12,133,211,32,6 
0,3 

2040 DATA164,209,240,8,169,40,32,102,3,1 
36,208,248,165,208,32,102,3,177,210 
, 1 33 

2050 DATA215,96,24,101 ,210,133,210,165,2 
11,105,0,133,211,96 
2060 RETURN 

2070 RESTORE 2080 :FORN-OTO30 : READA :POKE8 
82 + N , A :NEXT: RETURN 

2080 DATA160,0,132,212,132,214,169,208,1 
33,213,169,56,133,215,162,3 
2090 DATA177,212,145,214,200,208,249,230 
,213,230,215,202,16,242,96 


24 
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KLONDIKE 


di J.E. Hosek - Trad. di L. Zaninello, adatt. di N. Anticoli 


U na volta che iniziate a giocare a "Klondike" è 
difficile smettere; se perdete molti punti vorre¬ 
te sicuramente rifarvi e nel caso di vittoria sarete 
ansiosi di ritentare la fortuna. 

Klondike è il classico solitario con le carte; esso 
deve la sua popolarità al fatto di essere una combi¬ 
nazione di calcolo e fortuna, con rapido svolgimen¬ 
to. Lo schieramento è il seguente: si distribuisce una 
serie di sette carte di cui solo la prima è scoperta. 
Si aggiunge un'altra riga di sei carte, di cui la prima 
carta, scoperta, è posata sulla seconda della prima 
fila, disposta allo stesso modo della riga prece¬ 
dente. 

Si procede con altre cinque file ognuna con una 
carta in meno scoperta. 

Scopo del gioco è quello di costruire la sequenza di 
carte dello stesso seme in ordine ascendente a par¬ 
tire dagli assi. I quattri assi, infatti, rappresentano le 
basi di ogni pila e non appena diventano liberi ven¬ 
gono messi in testa allo schieramento. 

Per giocare si sposta una carta alla volta; le carte 
che non sono immediatamente utilizzabili vengono 
messe, scoperte, in un mazzo separato del tavolo. 
La prima carta di questo mazzo è sempre libera, 
cioè pronta all'uso; le carte dello stesso seme ven¬ 
gono messe in sequenza ascendente sulle basi o 
aggiunte alle colonne dello schieramento in se¬ 
quenza decrescente e a colori alterni (indipenden¬ 
temente dal seme). 

La carta, completamente scoperta, che sta in fondo 
a ogni colonna è sempre libera ovvero può essere 
messa su una base o in fondo a un'altra colonna. 
Togliendo una carta scoperta, quella che si trova 
sotto viene a sua volta voltata e scoperta e diventa 
libera. 

Le sequenze nello schieramento possono venire tra¬ 
sferite da una colonna all'altra, ma solo in blocco, 
non a segmenti. 

Le caselle che si vengono a liberare nello schiera¬ 
mento possono venire occupate solo dai re. 

GIÙ LE CARTE IN TAVOLA 

Nella parte bassa dello schermo ci sono le parole 
"DA" "A"; per muovere una carta dal pozzo in una 
fila premete il tasto P seguito dal numero di tale fila. 
Per muovere una carta da una fila a un'altra digita¬ 
te prima il numero della fila dalla quale volete to¬ 
gliere la carta e poi quello della nuova fila su cui 
volete posizionarla. 


Per estrarre una carta dal mazzo basta premere la 
M; infine, per spostare una carta da una fila alle 
basi digitate il numero di tale fila seguito dalla F. 


5 R 

EM *»* C.69 KL0NDI 

KE 

* # * 





1 0 

COLORO,16,5:COLORA 

, 1 6 

,5 : 

IFPEEK( 

1 9 

85 

0) 


< >29THENGOSUB2000 







1 5 

P0KE65298,PEEK(652 

98) 

AND 

251 :P0K 

E 6 

52 

99 


,PEEK(65299)AND30R 

56 






1 8 

P0KE56,55 :CLR 







20 

DN$="{19 CUR.GIU)" 

: 0V 

$* " 

(29 CUR 

. D 

ES 

)" 

30 

BK$="{WHITE J (SH S} 

( SH 

Q ) 

(SH R) ( 

SH 

T 

) ( 


CUR . G I U ) ( 9 CUR.SIN 

) 1S 

H U 

)(CBM F 

) ( 

CBM 


Ci (SH V}":BL$«" { 9 

SPC 

) (C 

UR.GIU } 

(9 

C 

UR 


. SIN } {9 SPC}" 







35 

KEY1 , C H R $(133) : KEY 

2 ,C 

H R $ 

(1 37 ) : K 

EY 

6 , 

CH 


R$(1 90 ) :KEY7,CHR$( 

1 36 

) 





90 

B 2 $ *"12 9 SPC)" 







50 

DIM CD $(5 2 ) :C $(0 ) = 

" ( R 

ED ) 

" : C $ ( 1 ) 

« " 

( BLA 


CK)":C$(2)(RED)" 

: C $ 

(3) 

«"(BLAC 

K) 

Il . 

CD 


$(0 ) = BL$ 







60 

FORX-0TO3:F0RY=1T0 

1 3 






70 

CD$(X*1 3 + Y )=C$(X) + 

" { S 

H S 

} " + C H R $ 

(9 

5 + 

Y) 


+ C H R $(109 + X ) + "(SH 

T) ( 

CUR 

• GIU } (9 

C 

UR 

‘ S 


IN) (SH U }" 







75 

CD$(X*13+Y)=CD$(X* 

1 3 + 

Y ) + 

C HR $( 1 7 

3 + 

X) 

+ C 


HR$ ( 159 + Y ) + " (SH V} 

II 






80 

NEXTY , X 







90 

DIMDK ( 52 ) ,ST ( 29 ) ,L 

Y ( 7 

.20 

) ,UC(7 ) 

, T 

P ( 

7 ) 


: F0RX-1T052 lDK( X )« 

X : N 

EXT 





1 00 

DEF FNR ( Z ) -INT ( 52 

* R N 

D ( Z 

) ) + 1 




1 1 0 

DEFFNSU(X ) =INT ( X/ 

13. 

1 ) + 

1 : DEFFN 

VL 

(X 

)» 


X- 13*(FNSU(X)-1 ) 







1 20 

DE F F N SC ( X )-( X/2-I 

NT ( 

X / 2 

) ) : G0SU 

B 1 

1 9 

0 

1 25 

IFTT<~0THENTT=500 







1 30 

BT-INT((TT+51)/52 

) 






1 90 

G0SUB710 :G0SUB720 







1 50 

PRINT"(WHITE)(CLR 

) # 

1 (2 

SPC )#2 

(2 

S 

PC 


}#3(2 SPC)#9(2 SP 

C ) # 

5(2 

•SPC ) #6 

( 2 

S 

PC 


} # 7 1 5 CUR.DESHBL 

A C K 

) F ( 

WHITE ) I 

LA 

( 1 

7 


CUR.GIU)" 







1 60 

PRINT0V$"(BLACK)F 

2(WHIT 

EJ-RI-G 

I OC A 

Il . 


PRINT0V $"(BLACK)F 

6 { W 

HIT 

E } “QUIT 

(C 

UR 

. G 


I U ) " 







1 70 

PRINT"(BLACK)M(WH 

ITE 

) A Z 

Z0 (BLA 

CK 

)P 

(W 


H I TE ) 0ZZ0 ( 2 SPOT0TA 

LE" 

: PR I NT" 

(1 

2 

CU 


R.DESiPUNTATA" 







: 80 

PRINT"DA :(7 SPC) 

A : " 

; 





1 90 

PRINT"(HOME)(2 CU 

R . D 

ES } 

(3 CUR . 

Gl 

U) 

"0 


V$" ( REDJCU0RI (9 

CUR 

• Gl 

U )( 6 CU 

R . 

SI 

N ) 


( BLACK)PICCHE ( 9 C 

UR . 

GIU 

1(6 CUR 

. S 

IN 

) l 


REDÌQUADRI(2 SPC) 

(9 

CUR 

• GIU ) (8 

c 

UR 

. S 


IN )( BLACK )"; 







200 

PRINT"FIORI ": NB-- 

1 : G0SU 

B9 90 : NB 

= 0 



21 0 

F0R X=1T07 : PRINT" ( 

HOME )" 

L EFT $( D 

N $ 

, x 

) L 


EFT $( 0 V $ ,X* 9-9 ) ; : 

F0R 

Y-X 

T07 : IFY 

= XTH 

EN 


230 




















o ooooooooooooooooooo, 



PROGRAAAMA 



2 20 PRINTBK$"{CUR.SU}";:GOTO240 
230 PRINTCD$(LY(X,X))"{CUR.SU}"; 

240 NEXTY:NEXTX 

250 PRINT" {HOME}"0V$"{CUR.GIU}"; :FORX-1T 
04:PRINTBK$"{3 CUR.GIU}{4 CUR.SIN}"; 

:NEXT:PRINT 
260 GOSU B7 40 

270 G0SUB760:IFQUTHEN1240 

280 PRINT"{5 CUR.SU}":F0RX-1TO5:PRINTB2$ 
:NEXT:TT-TT-'52*BG: GGSUB9 4 0 
290 REM *** LOOP PRINCIPALE 
300 GW-0;0M--1: M 1 - 1 

310 E D - 0:G0SUB960:IFEDTHENPRINT"{CLR}":G 
0T0125 

320 IFQUTHEN1240 

330 IF GWTHEN1 160 

340 GM-0:GOSUB350:G0T0310 

350 IFM1 >-*1 THEN380 

360 IFDP-OTHENRETURN 

370 SP-SP+1:ST(SP)-DK(DP):DP=DP-1:PRINT" 
{HOME}"DN$"{2 CUR.SU}"; :GOSUB740 :GM- 
-1 : RETURN 

380 IFM 1 -OTHENC1-ST(SP ) :C3 = C1 :G0T0400 
390 CI= L Y(MI , U C(M1 ) + 1):C3-LY(M1 ,TP(MI )) 
400 IFM2>-1THEN600 
410 IFC3-0THENRETURN 

420 S3“FNSU(C3 ) : V3-FN.VL (C3 ) : IFV3-1 <>PL (S 
3 )THENRETURN 

4 30 IFNOT AMTHEN510 

440 BM=0:FORX= 1 T04:IFFNSC(X)=FNSC(S3)THE 
N 4 6 0 

450 IFV3>PL(X )+2THENBM=-' 

460 NEXT:IF(MI>0)OR(V3<3)THEN500 
470 F0RX=1T07:C4=LY(X,UC(X)+1):V4=FNVL(C 
4):IFV4<>V3~’1 THE N 4 90 
480 IFFNSC(S3)<>FNSC (FNSU(C4 ) )THENBM = -*1 
490 NEXT 

500 IFBMTHENRETURN 
510 IFM1-0THEN570 

5 20 C=M1 :GOSU B1 150:1 FTP(MI ) = 1THENPRINTBL 

$ : TP(MI )*0 :GOTO580 

530 IFTP(MI)-1THENPRINTBL$:TP(M’)=0 : GOTO 
560 

540 TP(MI )-TP(MI )-1 :PRINTBL$"{4 CUR.SIN} 
{2 CUR . SU } "CD$(LY(MI ,TP(MI ) ) ) ; 

550 IFTP(MI)-UC(M 1 )THENUC(M’)-UC(M 1 )-1 
560 G0TO580 
570 GOSUB 1 170 

580 PRINT"{HOME}"OV$LEFT$(DN$,S3*4-3)CD$ 
(C3):PL(S3)*V3:TT-TT+5*BG:MU--1 
590 GOSUB94 0 :TQ-0:FORQ-1T04:TQ-TQ+PL(Q): 

NEXT:GW=(TQ=52):GM=-1 : RETURN 
600 C 2 - L Y(M2 , TP(M2 ) ) : SI* F N SC(FNSU(C1 )):S 
2-FNSC(FNSU(C2)) 

610 VI * F N V L(C1 ) : V2-FNVL(C2):IF(VI - 1 3)AND 
(V2 = 0 )THEN630 

620 IF (SI -S2 )0R ( VI + 1 OV2 )THEN RETURN 
630 IFM1>0THEN650 

640 GOSUBÌ170 :LY(M2,TP(M2) + 1 )-C1 :NC-Ì :GO 
T0690 

650 NC = T P(MI )-UC(MI ) :C-M1 :PRINT"{HOME)"L 
EFT$(DN$,UC(C) + 1)LEFT$(OV$,C*4-'4); 
660 F 0 R X = 1TONC:PRINTBL$"{4 CUR.SIN}"; :LY 
(M2,TP(M2)+X)-LY(M1 , UC(MI ) + X):NEXT 
670 TP(MI)-UC(MI):UC(MI)-UC(MI)-1-(UC(MI 
)-0 ) 

680 IFTP(MI ) > OTHENGOSU B1150:PRINTCD$(LY( 
MI ,TP(M1 ))); 

690 C-M2:GOSUB1150:PRINT"{CUR.GIU}";:FOR 
X-1TONC:PRINTCD$(LY(M2,TP(M2)+X))"{4 
CUR.SIN}";:NEXT 

700 TP(M2)=TP(M2)+NC:GM=-1 : RETURN 
710 F0RX-1T052:A-FNR(0):S=DK(A):DK(A)-DK 
(X) :DK(X)= S:NEXT:DP = 52: RETURN 
720 F0RX-1T07:F0RY-XT07:LY(Y,X)-DK(DP):D 
P-DP-1 :NEXTY:TP(X)-X:UC(X)-X-»1 :NEXTX 


730 ST ( 1 )-DK(DP):DP-DP-’ : SP-1 :FORX-1T04: 
PL(X)=0 :NEXT:RETURN 

740 PRINT"{HOME}"DN$"{CUR.SU}"BK$"{CUR.S 
U} {2 CUR.DES}"CD$(ST(SP ) ) 

750 PRINT"{WHITE}"DP"{CUR.SIN} ";TAB(6)S 
P"{CUR . SIN } "; : RETURN 
760 PRINT"{WHITE}{HOME}{10 CUR.GlU}PREGO 
IMMETTERE PUNTATA" 

770 PRINT"PUNTATA MASSIMA - {BLACK}"BT 
780 PRINT"{WHITE}PREMI{BLACK} FI{WHITE} 
PER PUNTARE TUTTO" 

790 PRINT"PREMI{BLACK} F7{WHITE} PER RI¬ 
MI SCHIARE" 

800 PRINT" ->{8 SPCH7 CUR .SIN }{ BLACK } {C 
BM 0}{CUR.SIN}";:N-0:BG-0:B$-"" 

810 GETA$;IFA$=""THEN810 

820 IF(A$*CHR$(133))AND(N-0)THENBG*BT:RE 
TURN 

830 IF(A$-CHR$(136))AND(N-0)THEN910 
840 IF (A$-CHR$ ( 1 40.) ) AND (N-0 )THENQU- - 1 : RE 
TURN 

850 IFA$<>CHR$(13)THEN880 

860 BG-VAL(B$);IFN0T((BG-0)0R(BG>BT))THE 
NRETURN 

870 PRINT:PRINT"{CUR.SU}{4 CUR.DES}{12 S 
PC } " :G0T07 60 

880 IF(A$<":")AND(A$>"/")AND(N<1 1 )T H E N B $ 
-B$*A$:N-N*1:PRINTA$"{CBM 0}{CUR.SIN 
}" ; : G0T0810 

890 IF(A$-CHR$(20))AND(N>0)THENN-N-’ :PRI 
N T"{2 CUR.SIN} {CBM 0}{CUR.SIN}";:3$ = 
MID$(B$,1 ,N ) 

900 G0T0810 

910 PRINT"LAVORO !":G0SUB710 :G0SUB720 
920 PRINT"{H0ME}{CUR.GIU}"; :F0RX-1T07:PR 
INTCD$(LY(X,X) ); :NEXT 
930 PRINT:PRINT"{9 CUR.GIU}{6 CUR.DES}"C 
D$(ST(SP ) ) : GOTO 7 60 

940 PRINT"{HOME}{BLACK}{2 CUR.GIU}"DN$TA 
B(19 )TT" {CUR.SIN} ":IFNBTHENRETURN 
950 PRINTTAB(19)BG:RETURN 
960 IFNOTGMTHEN 1 010 

970 AM-- 1 :M2--1 :IFM’>0THENMU-O:FORZ*1TO7 
:M1-Z:GOSUB350:NEXT 
980 M 1 =0 :G0SUB350 
990 IFMUTHENM 1 =1:GOT0970 
1000 AM-0:IFGWTHENRETURN 

1010 PRINT"{HOME}{BLACK}"DN$"{4 CUR.GIU) 
{5 C U R . DE S} {5 SPC}{4 CUR.DES}{5 SPC 
} { 1 4 CUR.SIN}"; 

1020 GETA$:IFA$=""THEN 1 020 
1030 IF(A$>"0")AND(A$<"8")THENM1=VAL(A$) 
:PRINTA$"{8 CUR.DES}"; :G0TO1090 
1 040 IFA$-CHR$(137)THENED = -1 :R E T U R N 
1 050 IFA$ = "M"THENM1=-1 :PRINT"MAZZO" ;:RET 
URN 

1 060 IFA$-"P"THENM1=0 :PRINT"POZZO{4 CUR. 
DES}" ; :G0T01090 

1 070 IFA$-CHR$(140 )THENQU--1 : RETURN 
1 080 GOT010 20 

1090 GETA$:IFA$=""THEN1090 

1100 IF(A$>"0")AND(A$<"8")THENM2-VAL(A$) 
: P RINT A $ ; : RETURN 

1110 IF(A$ = "F" )THENM2-=! : PRINT"FI LA"; :R E 
TURN 

1120 G0T01010 

1150 PRINT"{HOME}"LEFT$(DN$,TP(C) ) LEFT$( 
0V$ ,C*4-4) ; : RETURN 

1160 TT = TT + 7 40*BG;PRINT"{CLR} {3 CUR.GIU} 
{10 CUR.DES}YOU WON!": GOTO 130 
1170 SP-SP-1:IFSP=0ANDDP>0THENSP=1:ST(SP 
)-DK(DP ) :DP-DP^I 
1180 G0SUB740: RETURN 

1190 INPUT" {CLRHBLACKHCUR.GIUHCUR. DES 
}COME TI CHIAMI " ; N$ 

1200 F$ = "(SO:" + N$ + ".SOLDI t S,":OPEN2,8,2,F 
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$ + " R " 

1210 INPUT#?,TT:CL0SE2 
1220 0PEN2,8,2,F$+"W" 

1 230 PRINT #2 , 0 :CL0SE2: RETURN 
1240 OPEN2,8,2,F$ + "W":PRINT#2,TT:CL0SE2 
1250 PRINT"{CLR)(BLACK){CUR.GIU}{CUR.DES 
)ARRIVEDERCI ..." 

1260 END 

2000 F0RX = 828T0867:READA:POKEX,A :NEXT:SY 
S828 

2010 FORX = 0T016 :B = 1 4848+X*8:C = 151 0 4 + X * 8: 
F0RY=2T07:READA 

2020 POKEB+Y,A:IFX>12THENA=A/2 
2030 POKEC+Y-1 + (X>12) ,A :NEXTY 
2040 POKEB,255 :POKEC + 7,255 :POKEB+1 ,0:P0K 
EC"6*(X>12) ,0 :NEXTX 

2050 F 0 R X * 14984T015031:READA:POKEX,A:NEX 
T 

2060 FO R X * 1 5320T01 5 335 :READA:POKEX,A :NEX 
T 

2070 RETURN 

2080 DATAI 69,0 , 1 33■3,133,5,169 
2090 DATA208,133,4,'69,56,'33,6,160,0,17 
7,3,145 

2100 DATA5,230,3,230,5,208,246,165,4,201 
,215,240,7,230,4,230 


2110 

DATA 6,7 

6,76,3 

,96 



21 20 

DATA24, 

60,102 

,126,102,0 



21 30 

D A T A 6 0 , 

102,12 

,48,126,0 



21 40 

DAT A 6 0, 

102,12 

,102,60,0 



2150 

DATA 102 

.102,1 

26,6,6,0 



2 1 60 

DATAI 26 

,96,12 

4,6,124,0 



21 70 

DAT A 6 0, 

96,124 

,102,60,0 



2180 

DATA 126 

,6,12, 

24,24,0 



21 90 

DAT A 6 0, 

102,60 

,102,60,0 



2200 

DAT A 6 0, 

102,62 

,6,60,0 



2210 

DATAI 26 

,24,24 

,24,24,0 



2220 

D A T A 3 0 , 

12,12, 

108,56,0 



2230 

DAT A 6 0, 

102,10 

2,60,14,0 



2240 

DATA 102 

,108,1 

20,108,102,0 



2250 

DATA 108 

,254,2 

54,124,56,16 



2260 

DATA 16 , 

56,124 

,254,56,124 



2270 

DAT A 2 4 , 

60,126 

,126,60,24 



2280 

DATA56 , 

56,254 

,254,56,124 



2290 

DA T A 25 5 

,51,10 

2,204,1 53,51 , 1 

02 , 

204 

2300 

DATA255 

,204,1 

02,51 ,1 53,204, 

102 

,51 

2310 

DATA0,3 

,3,3,3 

,3,3,3 



2320 

DATA0,1 

92,192 

,192,192,192,1 

92, 

1 92 

2330 

DATA3,3 

,3,3,3 

,3,3,0 



2340 

DATAI 92 

,192,1 

92,192,192,192 

, 1 9 

2,0 

2350 

DATA204 

,102,5 

1 ,153,204,102, 

5’ , 

255 

2360 

DATA 51 , 

102,20 

4,153,51 ,1 02,2 

04 , 

255 



Trad. ed adaft. di S. Albarelli - di D. Smoak 


Q ualche anno fa, quando ancora non esiste¬ 
vano i personal computer, suscitavano 
grande ammirazione — e andavano a ruba - i fogli 
da stampante componenti messaggi scritti con ca¬ 
ratteri cubitali, formati da insiemi di normali caratteri 
alfanumerici di stampa. Era di gran moda appen¬ 
dere al muro questi fogli contenenti il proprio nome 
a caratteri cubitali e dichiarare con un certo orgo¬ 
glio agli amici che era stato stampato dal calcola¬ 
tore... 

Altri tempi! Ora tutto ciò è possibile anche con un 
semplice CI 6 o Plus/4 con stampante Commodore: 
vediamo come. 

Stampare messaggi in formato gigante, data la li¬ 
mitata larghezza della carta, richiede l'utilizzo di 
una tecnica speciale di stampa "ruotata": i caratte¬ 
ri in formato gigante sono ruotati di 90 gradi e sono 
quindi limitati in altezza dalla larghezza della carta; 
nessuna limitazione, invece, nella lunghezza del 
messaggio, se naturalmente si usa della carta a 
modulo continuo. 


In tal modo si ottengono dei lunghi "striscioni", che 
potranno essere quindi utilizzati nel modo più op¬ 
portuno: messaggi pubblicitari per la propria attivi¬ 
tà, feste di compleanno, eccetera. 

Il programma che segue questo articolo si occupa 
di generare i caratteri giganti, opportunamente ruo¬ 
tati di 90 gradi, e di stampare quindi un messaggio 
di vostro gradimento. 

Sarà sufficiente stabilire, rispondendo alle doman¬ 
de del computer, la larghezza e l'altezza desiderata 
dei caratteri, e digitare quindi il messaggio di stam¬ 
pa. Il programma permette inoltre di stampare an¬ 
che caratteri grafici o ridefiniti. Assicuratevi in primo 
luogo di avere la stampante collegata ed accesa, e 
che il suo numero di periferica sia regolato su 4. 
Caricate quindi il programma ed attivatelo con il 
RUN: vi si presenterà una prima possibilità di scelta 
tra set maiuscolo/grafico, set minuscolo/maiuscolo, 
oppure set ridefinito. 

Operata questa prima scelta il computer vi chiede¬ 
rà quale carattere intendete scegliere per formare i 
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vari caratteri giganti: potete sceglierne uno qualsia¬ 
si, tenendo conto che - a seconda del carattere 
scelto — il messaggio potrà apparire più "chiaro" 
oppure più "scuro". 

Il computer chiederà quindi di digitare il messaggio 
di stampa: iniziate a digitarlo a partire dalla posi¬ 
zione in cui si trova il cursore, tenendo presente che 
esso può essere lungo fino a due intere linee di 
schermo. 

Alla fine del messaggio premete RETURN. 

Dovrete ora decidere l'altezza dei caratteri di stam¬ 
pa fornendo al computer un valore da 1 a 9: il valo¬ 
re più basso ( 1 ) corrisponde a caratteri alti 7 linee di 
stampa mentre il valore 2 corrisponde a un'altezza 
di 14 linee di stampa, il 3 a 21 linee e così via fino al 
valore 9, corrispondente a un'altezza di 63 linee di 
stampa. 

L'ultimo parametro da introdurre è la larghezza dei 
caratteri: il massimo valore della larghezza è ugua¬ 
le al valore scelto per l'altezza mentre il valore mini¬ 
mo è 1. 

Dopo aver inserito anche questo valore la stampa 
ha inizio. 

Una volta stampato il messaggio potrete premere X 
per uscire dal programma, R per stampare una se¬ 
conda volta lo stesso messaggio, oppure N per 
inserire un nuovo messaggio. 

Ricordate che maggiore è la dimensione dei carat¬ 
teri, maggiore sarà anche il tempo impiegato per la 
stampa del messaggio. 

Il programma funziona senza modifiche con stam¬ 
panti Commodore 1525, MPS 801 ed MPS 803. 
Dal momento che sulla 1526 e sulla MPS 802 la 
spaziatura tra le linee viene trattata diversamente, 
se possedete una di queste ultime stampanti, do¬ 
vrete aggiungere al programma questa linea: 

1 OPEN6,4,6: PRINT#6, CHR$(27):CLOSE6 
che ha la funzione di regolare la spaziatura tra le 
linee sul valore di 27/216, equivalente a 8 linee per 
pollice. 

Se desiderate che i caratteri appaiano più vicini tra 
loro, usate un numero minore nell'istruzione 
CHR$(), mentre un numero maggiore sortisce l'ef¬ 
fetto opposto. 

Come ulteriore modifica, se utilizzate una 1526 op¬ 
pure una MPS 802, modificate in CHR$(32) il 
CHR$(8) delle linee 360 e 390. 

Infine, se desiderate utilizzare dei caratteri ridefiniti, 
essi dovranno trovarsi già in memoria a partire dal¬ 
la locazione 12288. 


100 PO KE 5 6,52 :POKE 5 5,0 :CLR:CU-65298:GOSU 
B520:SYS819:COLORO,2,5 
110 PRINT"{CLR}{BLACK}{RVS ON){15 SPCJST 
RISCIONIt15 SPC } {RVS OFF}" 

120 CC-0:PRINT"{3 CUR.GIU}PREMERE{4 SPC} 
: " : P R I N T " { 2 CUR.GIUHRVS 0N}U{RVS OF 
FJ+PER MAIUSCOLE/GRAFICI" 

130 PRINT" {2 CUR.GIUHRVS 0N}L{RVS OFF} 0 
1 4 0 PRINT" {2 CUR.GIUHRVS 0N}C{RVS OFF} 0 


— 

150 GETCH$:IFCH$=""THEN1 50 

160 IFCH$="U"THENCH=14336:PRINTCHR$(142) 

:G0T0200 

170 IFCH$-"L"THENCH=14336+1024:PRINTCHR$ 
(14):GOT0200 

180 IFCH$="C"THENF0RK-1 3568T01 3575 :P0KEK 
,0:NEXT:CH=13312:GOSUB510:GOT0200 
190 GOT0150 

200 PRINT"{CLR}(RVS 0N}C0N QUALE CARATTE 
RE VUOI COSTRUIRE LE{3 SPC}LETTERE G 
RANDI?" 

210 G0SUB590:PP$=MT$ 

220 PRINT"{CLR}{RVS ONjDIGITA IL MESSAGG 
I0{2 SPC}":GOSU8590:N$=MT$ 

230 PRINT"{RVS ON JALTEZZA (1 / 9)";:INPU 
TTS: IFTS<1THENTS-1 

240 PRINT"{RVS 0N JLARGHEZZA (1 /"TS’MCUR 
.SIN} )"j :INPUTWS:IFWS>TS0RWS<1THENWS 
-TS 

250 OPEN 1 ,4 

260 F0RL=1T0LEN(N$) 

270 A$-MID$(N$,L,1):PRINT"{RVS 0N}{H0ME} 
{9 CUR.GIU}PRINTING{RVS OFF} "A$:IFA 
$-" "THENG0SUB480:GOTO380 
2 80 Q = ASC(A$):Q = Q+(Q>63 )*64+(Q>191 )*64+( 
Q= 2 55 )* 33 
290 I=CH+Q*8 
300 F0RJ-7T00STEP-1 
310 F0RK-7T00STEP-O 
320 B=PEEK(I+K) 

330 IFBAND2 +JTHENF0RT-1TOTS:PR$ = PR$ + PP 
$ :NEXTT:GOTO350 

340 FORT-1T0TS:PR$=PR$+" ":N E X T T 
350 NEXTK 

360 FORX-1TOWS SPRINT#1 ,CHR$(15)SPC((72-T 
S*8)/2)PR$CHR$(8):NEXTX:PR$="" 

370 NEXTJ 
380 NEXTL 

390 PRINTiM ,CHR$(8):CL0SE1 
400 IFCH$-"C"THENPOKECU,196 :POKECU+1 ,208 
: CC-1 

410 PRINT"!CLR(PREMERE{CUR.GIU}:":PRINT" 
{CUR .GIU}X PER FINIRE":PRINT"{CUR.Gl 
U } R PER RISTAMPARE" 

420 PRINT"{CUR.GIU}N PER IMMETTERE UN NU 
OVO MESSAGGIO" 

430 GETY$:IFY"THEN430 

440 IFY$-"R"THENGOSUB490:PRINT"{CLR}"N$: 
GOT 02 50 

4 50 IFY$ = "X"THEN0PEN1 ,4 :PRINT#1 , CHR$(15 ) 

: CLOSE1 :PRINT"{CLR}" :END 
460 IFY$="N"THEN110 
470 GOTO 4 30 

480 F0RX-1T08*WS :PRINT#1 ,CHR$(8):NEXT:RE 
TURN 

490 IFCC-1THENCC-0:G0SUB510 
500 RETURN 

510 POKECU,PEEK(CU)AND251:P0KECU+1,PEEK( 
CU+1 )AND30R52:RETURN 

520 FORI-819T0850:READA:P0KEI ,A :X-X + A: NE 
XT 

530 IFX05848THENPRINT" ERRORE NEI DATA": 
STOP 

540 RETURN 

550 DATA 169,56,133,254,169,208,133,252, 
169,0 

560 DATA 133,251,133,253,168,162,8,177,2 
51 

570 DATA 145,253,200,208,249,230,252,230 
,254 

580 DATA 202,208,242,96 

590 POKE239,5:POKE1319,155:POKE'320,34:P 
OKE1321,34:POKE1322,20:POKE1323,144 
600 INPUTMT$: RETURN 


28 












PEEK E POKE 
DA CONOSCERE 


di P. Lizio 

I l comando POKE permette di 
cambiare i valori delle locazio¬ 
ni di memoria RAM del C=16 e 
del Plus/4. Il formato dell'istruzio¬ 
ne è il seguente: 

POKE locazione, valore 
Il numero che indica la locazione 
deve essere compreso tra 0 e 
65535, mentre il valore più variare 
da 0 a 255. 

L'istruzione PEEK, invece, ritorna il 
valore assegnato ad una locazio¬ 
ne. Ad esempio: 

PRINT PEEK (65287) 
fornisce il valore memorizzato nel¬ 
la locazione 65287 (all'accensio¬ 
ne è uguale a 8). 

Le locazioni modifcate ritornano 
al valore normale appena viene 
premuto il tasto RESET. 

Quelle che elenchiamo sono al¬ 
cune possibilità che offrono questi 
due comandi. 

POKE 0,0 = Tutte le periferiche 
collegate al vostro computer sono 
inutilizzabili. 

POKE 0,15 = Potete nuovamente 
usare le periferiche. 

POKE 240,1 = Il computer si bloc¬ 
ca e attende che venga premuto 
un tasto. Fornisce un effetto simile 
al comando GETKEY, con il van¬ 
taggio che si può utilizzare anche 
fuori da un programma. 

POKE 768,1 = Entra in monitor e 
disattiva il comando X per uscirne. 
POKE 770,2 = Il computer si 
blocca. 

POKE 772,22 = Appare il mes¬ 
saggio SYNTAX ERROR ogni volta 
che si tenta di .inserire un co¬ 
mando. 

POKE 772,77 = Analogo al pre¬ 
cedente, con la differenza che ap¬ 
pare il messaggio OUT OF ME¬ 
MORY ERROR. 

POKE 772,44 = Il computer si 
blocca appena inserito un co¬ 
mando. 

POKE 774,255 = Protegge il lista¬ 
to di un programma. 

POKE 774,110 = Annulla il co¬ 
mando precedente. 

POKE 786,68 = Disabilita il tasto 



RU N/STOP. 

POKE 786,66 = Riabilita 

RU N/STOP. 

POKE 817,255 = Nessun pro¬ 
gramma può essere salvato con il 
comando SAVE. 

POKE 817,241 = Il comando SA¬ 
VE torna ad essere utilizzabile. 
POKE 1344,1 = Disabilita l'auto- 
repeat dei tasti. 

POKE 1344,128 = Riabilita l'auto- 
repeat. 

POKE 2025,64 = L'uso del tasto 
INSERT è possibile solo fino a 
quando l'ultimo carattere della ri¬ 
ga tocca il bordo destro dello 
schermo. 

POKE 2025,0 = L'uso del tasto 
INSERT ritorna normale. 

POKE 2026,255 = Inserimento 
automatico. 

POKE 2026,0 = Disabilita l'inseri¬ 
mento automatico. 

POKE 2039,1 = Disabilita il bloc¬ 
co dello sccrolling dello schermo 
ottenuta con i tasti CONTROL e S. 
POKE 2039,0 = Riabilita CON- 
TROL+S. 

POKE 65286,64 = Blank dello 
schermo, ovvero lo schermo viene 
"coperto" dalla cornice. 

POKE 65286,27 = Schermo nor¬ 
male (battere "alla cieca" questa 
istruzione). 

POKE 65287,32 = Spegnimento 
del computer. 

POKE 65287,136 = Il computer 
può scrivere in due modalità, se¬ 
lezionabili premendo contempo¬ 
raneamente i tasti SHIFT e C=: 
maiuscolo/grafica e minusco¬ 


lo/maiuscolo. Con questo co¬ 
mando i due modi si fondono: si 
scrive normalmente in maiusco¬ 
lo/grafico, ma attivando il REVER¬ 
SE ON si scrive in minusco¬ 
lo/maiuscolo. 

POKE 65287,8 = Disabilita la PO¬ 
KE precedente. 

POKE 65290,0 = Didabilita la ta¬ 
stiera. 

PRINT PEEK (117) = Quando si 
utilizza la pagina grafica, si per¬ 
dono lOk della memoria; se que¬ 
sta perdita esiste si ha come risul¬ 
tato il numero 1. 

PRINT PEEK (15!) = Numero dei 
files attualmente aperti. 

PRINT PEEK (153) = CMD cor¬ 
rente. 

PRINT PEEK (171) - 2 = Lunghez¬ 
za del nome dell'ultimo file utiliz¬ 
zato. 

PRINT PEEK (172) = Ultimo LFN 
(Load File Number) utilizzato. 
PRINT PEEK (173) - 96 = Ultimo 
Sa (Secondar/address) utilizzato. 
PRINT PEEK (174) = Ultima perife¬ 
rica utilizzata (1 = registratore, 
4/5 = stampante, 8/11 = drive). 
PRINT PEEK (202) = Colonna nel¬ 
la quale si trova il cursore e limite 
sinistro della finestra. 

PRINT PEEK (205) = Riga in cui si 
trova il cursore. 

PRINT PEEK (685) + PEEK (686) * 
256 = Colonna della pagina gra¬ 
fica in cui si trova il cursore gra¬ 
fico. 

PRINT PEEK (687) + PEEK (688) * 
256 = Riga in cui si trova il cursore 
grafico. 

PRINT PEEK (716) + PEEK (717) * 
256 = Colonna in cui si trova il 
centro dell'ultimo cerchio dise¬ 
gnato. 

PRINT PEEK (718) + PEEK (719) * 
256 = Riga in cui si trova il centro 
dell'ultimo cerchio disegnato. 
PRINT PEEK (1263) = Numero 
dell'ultimo errore commesso (ve¬ 
dere sezione 4 del prontuario). 
PRINT PEEK (1264) + PEEK (1265) 

* 256 = Linea del programma in 
cui si è verificato l'ultimo errore. 
PRINT PEEK (1266) + PEEK (1267) 

* 256 = Linea specificata dall'i¬ 
struzione TRAP nel programma. 
PRINT PEEK (1374 + n), dove n è 
un numero compreso tra 1 e 8 = 
lunghezza della stringa memoriz¬ 
zata nel tasto funzione n. 

PRINT PEEK (65294) + PEEK 
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((65298) AND 3) * 256 = frequen¬ 
za della voce 1. 

PRINT PEEK (65295) + PEEK 
((65296) AND 3) * 256 = frequen¬ 
za della voce 2/3. 

PRINT PEEK (65297) AND 15 = 
volume corrente. 

PRINT PEEK (65297) AND 112 = 
voci che stanno attualmente suo¬ 
nando (0 = nessuna, 16 = voce 1, 
32 = voce 2, 48 = voci 1 e 2, 64 = 
voce 3, 80 = voci 1 e 3). 


L’OROLOGIO 
INTERNO DEI 
COMMODORE E IL 
SUO UTILIZZO NEI 
PROPRI 
PROGRAMMI 


di S. Albarelli 

M olto spesso nei giochi 
d'azione e di velocità si 
sente la necessità di porre un ti¬ 
mer e un limite di tempo prima del 
quale il giocatore deve dare il 
meglio di se, ma molti degli utenti 
del Commodore non hanno ben 
chiaro il metodo da seguire per 
attuare questa miglioria ai propri 
giochi. 

Questo articolo si propone di far 
luce sull'argomento spiegando le 
regole di base da seguire per 
sfruttare l'orologio interno di cui 
sono dotati i computer della 
Commodore. 

Provate a digitare in modo diretto 
PRINT Tl$ 
e premete RETURN 
Il computer stamperà sullo scher¬ 
mo un numero a sei cifre. 



Questo numero è il contenuto di 
Tl$, una stringa di sistema che il 
computer aggiorna continuamen¬ 
te, e che mostra il valore dell'oro¬ 
logio interno del vostro computer; 
il suo formato è: 

HHMMSS 

dove 

HH sono le due cifre indicanti le 
ore 

MM sono le due cifre indicanti i 
minuti e 

SS sono le due cifre indicanti i se¬ 
condi. 

Quando accendete il computer 
Tl$ vale 000000, ma è possibile 
variarne il valore in qualunque 
momento mediante un comando 
Tl$= "HHMMSS" 
dove HHMMSS sono le ore, i mi¬ 
nuti e i secondi desiderati. 

Se ad esempio si vuole posiziona¬ 
re l'orologio sulle 12:35 e 10 se¬ 
condi, basta digitare 
Tl$=" 123510" 

Ora digitate e fate girare il se¬ 
guente programmino: 

10 Tl$= "000000" 

20 PRINT"[home]"TI$ 

10000 GOTO20 

La linea 10 posiziona l'orologio 
sulle 00:00 e 00 secondi; la linea 
20 stampa un'home per far torna¬ 
re il cursore nell'angolo in alto a 
sinistra e subito dopo stampa il 
valore di Tl$; infine la linea 10000 
fa eseguire nuovamente la linea 
20. 

Questo breve programmino per¬ 
mette di creare un'orologio che 
viene continuamente aggiornato 
anche sullo schermo. 

Tra la linea 20 e la linea 10000 è 
possibile inserire un programma 
che svolga altri compiti, purché la 
linea 10000 venga eseguita alme¬ 
no 2 volte al secondo, altrimenti il 
valore presente sullo schermo 
non verrebbe aggiornato abba¬ 
stanza spesso per dare letture at¬ 
tendibili. 

Ora se volessimo utilizzare l'oro¬ 
logio anche come timer, e non so¬ 
lo come orologio, potremmo ag¬ 
giungere al nostro programmino 



una linea che controlli costante- 
mente che l'orologio non superi 
un certo valore in secondi o in mi¬ 
nuti. Se volessimo dare un tempo 
di 10 secondi prima che il pro¬ 
gramma salti ad una determinata 
subroutine, la linea potrebbe es- 
sere: 

30 ÌF TI$>"000010"THEN (linea 
della subroutine) 

Questa subroutine potrebbe es¬ 
sere una linea che stampi un mes¬ 
saggio del tipo "TEMPO SCADU¬ 
TO" e che dia la possibilità di ri¬ 
partire. 

Se nei vostri programmi vi serve 
una precisione maggiore del se¬ 
condo, potete utilizzare un'altra 
variabile che il computer utilizza 
come orologio: TI. 

TI contiene il valore del tempo in 
sessantesimi di secondo. 

Se desideriamo che il programma 
visualizzi ugualmente in secondi, 
ma con delle cifre decimali che 
diano una precisione maggiore 
possiamo utilizzare un 
PRINT TI/60 

che visualizzerà un numero in 
questo formato: 

SS.DCMXXXX 

dove 

SS sono i secondi 
D sono i decimi di secondo 
C sono i centesimi di secondo 
M sono i millesimi di secondo 
XXXX sono i valori dal Decimillesi¬ 
mo di secondo al decimilionesimo 
di secondo. 

Logicamente le ultime cinque cifre 
sono poco utili, poiché il compu¬ 
ter non può calcolarle con estre¬ 
ma precisione data la sua veloci¬ 
tà di calcolo molto superiore al 
millesimo di secondo. 












COME POTER 
INVIARE ALLA 
STAMPANTE I DATI 
VISUALIZZATI DAI 
PROPRI 
PROGRAMMI 


di S. Albarelli 

Q uando si utilizza qualsiasi 
programma che median¬ 
te complessi algoritmi calcola ta¬ 
belle contenenti grandi quantità 
di informazioni delle quali biso¬ 
gna prendere nota, sarebbe mol¬ 
to più comodo poter inviare diret¬ 
tamente le tabelle alla stampante 
per evitare di trascrivere i dati che 
altrimenti verrebbero persi. 
Questo articolo vi spiega come 



poter modificare i vostri program¬ 
mi in modo che inviino i dati che 
normalmente dovrebbero visua¬ 
lizzare sullo schermo alla stam¬ 
pante. 

Caricate il programma da modifi¬ 
care in memoria e aggiungete 
questa piccola subroutine (rinu¬ 
merando le linee se già ne esisto¬ 
no con questi numeri di linea); 
1000 OPEN 4,4,0 
1010 CMD 4 
1020 RETURN 

Dovete chiamare con un GOSUB 
1000 questa subroutine prima che 
vengano eseguite le istruzioni 
PRINT che visualizzano i dati che 
vi interessa mandare alla stam¬ 
pante. 

Questa subroutine invia alla 
stampante i dati nel formato 


MAIUSCOLE/GRAFICI. Se i dati 
da stampare sono in MAIUSCO- 
LE/MINUSCOLE, dovete cambia¬ 
re la linea 1000 in: 

1000 OPEN 4,4,7 
Il comando CMD 4 in linea 1010 
serve a segnalare al computer di 
inviare tutti i dati che normalmen¬ 
te invia allo schermo alla periferia 
del file 4 (in questo caso la stam¬ 
pante). 

Quando il programma raggiunge 
la linea nella quale termina la vi¬ 
sualizzazione dei dati che si vo¬ 
gliono inviare alla stampante, è 
necessario chiamare con un Go- 
sub 2000 questa seconda subrou¬ 
tine che ripristina la visualizzazio¬ 
ne sullo schermo: 

2000 PRINT#4 
2010 CLOSE4 
2020 RETURN 

Per aggiungere delle subroutine 
che svolgano questo stesso com¬ 
pito con altri tipi di stampanti, rife¬ 
ritevi al manuale della stampante 
in questione per sapere quali co¬ 
mandi utilizzare. 
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